X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.generating.lisp;h=2be3e3c7fe94029f62a232c455f591589d3813ae;hb=fca774d3fbabdde5f5e5addd9a0b3f737bc2a708;hp=5fe1cfaca807dbd2f19ed968fb9f707c20d1ada7;hpb=4c22e03a95b43c06f3518c27df8ebccae04cb2c6;p=cl-gtk2.git

diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp
index 5fe1cfa..2be3e3c 100644
--- a/glib/gobject.generating.lisp
+++ b/glib/gobject.generating.lisp
@@ -357,7 +357,7 @@
 (defmacro define-g-flags (g-name name (&key (export t) type-initializer) &body values)
   `(progn
      (defbitfield ,name ,@values)
-     (register-enum-type ,g-name ',name)
+     (register-flags-type ,g-name ',name)
      ,@(when export
              (list `(export ',name (find-package ,(package-name (symbol-package name))))))
      ,@(when type-initializer