Made it possible to use regular symbols in enum and flags definitions

[clg] / glib / export.lisp

diff --git a/glib/export.lisp b/glib/export.lisp
index 59d187a34b3c920647216cc4e45d4a5178ef0f29..478936b7f6be2ee5802f10bcf10ca0b4255f654a 100644 (file)
--- a/glib/export.lisp
+++ b/glib/export.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 

-;; $Id: export.lisp,v 1.2 2004-10-27 15:24:10 espen Exp $
+;; $Id: export.lisp,v 1.4 2005-02-14 00:40:38 espen Exp $

 
 
 ;;; Autogenerating exported symbols
 
 
 ;;; Autogenerating exported symbols


@@ -29,8 +29,16 @@   (defexport defbinding (name &rest args)
        name
       (first name)))
 
        name
       (first name)))
 

-  (defexport define-type-method-fun (name lambda-list)
-    (declare (ignore lambda-list))
+  (defexport def-type-method (name &rest args)
+    (declare (ignore args))
+    name)
+
+  (defexport define-enum-type (name &rest args)
+    (declare (ignore args))
+    name)
+
+  (defexport define-flags-type (name &rest args)
+    (declare (ignore args))

     name)
 
   (defexport define-types-by-introspection (prefix &rest args)
     name)
 
   (defexport define-types-by-introspection (prefix &rest args)


@@ -47,3 +55,4 @@ (export-from-file #p"clg:glib;gcallback.lisp")
 (export-from-file #p"clg:glib;ginterface.lisp")
 (export-from-file #p"clg:glib;gobject.lisp")
 (export-from-file #p"clg:glib;genums.lisp")
 (export-from-file #p"clg:glib;ginterface.lisp")
 (export-from-file #p"clg:glib;gobject.lisp")
 (export-from-file #p"clg:glib;genums.lisp")

+(export-from-file #p"clg:glib;gerror.lisp")