From: espen <espen>
Date: Tue, 10 Jul 2007 08:45:06 +0000 (+0000)
Subject: Return type for ACCEL-GROUPS-FROM-OBJECT corrected
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/eba2d996724fcedbb6fc4b0e642d3a88b49bfb72

Return type for ACCEL-GROUPS-FROM-OBJECT corrected
---

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index 16b6530..c70e830 100644
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtk.lisp,v 1.77 2007-07-05 11:34:27 espen Exp $
+;; $Id: gtk.lisp,v 1.78 2007-07-10 08:45:06 espen Exp $
 
 
 (in-package "GTK")
@@ -329,7 +329,7 @@ (defun accel-groups-activate (object accelerator)
   (multiple-value-bind (key modifiers) (parse-accelerator accelerator)
     (%accel-groups-activate object key modifiers)))
 
-(defbinding accel-groups-from-object () (gslist accel-groups)
+(defbinding accel-groups-from-object () (gslist accel-group)
   (object gobject))
 
 (defbinding accelerator-valid-p (key &optional modifiers) boolean