X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/560af5c515eb5b6206040a9334de4254d2650147..4068d8203fc268b188e02b4ffc86ba17b1a15f1b:/glib/glib-export.lisp diff --git a/glib/glib-export.lisp b/glib/glib-export.lisp index dce6309..21c269a 100644 --- a/glib/glib-export.lisp +++ b/glib/glib-export.lisp @@ -1,5 +1,5 @@ ;; Common Lisp bindings for GTK+ v2.0 -;; Copyright (C) 2000 Espen S. Johnsen +;; Copyright (C) 2000 Espen S. Johnsen ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -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: glib-export.lisp,v 1.1 2000-08-14 16:44:30 espen Exp $ +;; $Id: glib-export.lisp,v 1.5 2001-05-11 16:11:07 espen Exp $ ;;; Autogenerating exported symbols @@ -23,23 +23,26 @@ (in-package "GLIB") (eval-when (:compile-toplevel :load-toplevel :execute) - (defexport define-foreign (name &rest args) - (declare (ignore args)) - (if (symbolp name) - name - (second name))) - - (defexport deftype (name &rest args) + (defexport defbinding (name &rest args) (declare (ignore args)) (if (symbolp name) name (first name))) - (defexport define-type-method-func (name lambda-list) + (defexport define-type-method-fun (name lambda-list) (declare (ignore lambda-list)) - name)) + name) + + (defexport define-types-by-introspection (prefix &rest args) + (list-autoexported-symbols (expand-type-definitions prefix args)))) + (export-from-file #p"clg:glib;gutils.lisp") (export-from-file #p"clg:glib;glib.lisp") +(export-from-file #p"clg:glib;proxy.lisp") +(export-from-file #p"clg:glib;gboxed.lisp") (export-from-file #p"clg:glib;gtype.lisp") +(export-from-file #p"clg:glib;gparam.lisp") +(export-from-file #p"clg:glib;gcallback.lisp") (export-from-file #p"clg:glib;gobject.lisp") +(export-from-file #p"clg:glib;genums.lisp")