From 3cfa455c49f16f4548b9f7fc20009f3252fa0c3f Mon Sep 17 00:00:00 2001 Message-Id: <3cfa455c49f16f4548b9f7fc20009f3252fa0c3f.1746389456.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 10 Feb 2005 20:24:25 +0000 Subject: [PATCH] Added new forms to be auto exported Organization: Straylight/Edgeware From: espen --- glib/export.lisp | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/glib/export.lisp b/glib/export.lisp index 59d187a..326d26a 100644 --- 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 -;; $Id: export.lisp,v 1.2 2004-10-27 15:24:10 espen Exp $ +;; $Id: export.lisp,v 1.3 2005-02-10 20:24:25 espen Exp $ ;;; Autogenerating exported symbols @@ -29,8 +29,16 @@ (defexport defbinding (name &rest args) 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) -- [mdw]