chiark / gitweb /
Optimizations
[clg] / glib / export.lisp
... / ...
CommitLineData
1;; Common Lisp bindings for GTK+ v2.0
2;; Copyright (C) 2000 Espen S. Johnsen <esj@stud.cs.uit.no>
3;;
4;; This library is free software; you can redistribute it and/or
5;; modify it under the terms of the GNU Lesser General Public
6;; License as published by the Free Software Foundation; either
7;; version 2 of the License, or (at your option) any later version.
8;;
9;; This library is distributed in the hope that it will be useful,
10;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12;; Lesser General Public License for more details.
13;;
14;; You should have received a copy of the GNU Lesser General Public
15;; License along with this library; if not, write to the Free Software
16;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17
18;; $Id: export.lisp,v 1.3 2005-02-10 20:24:25 espen Exp $
19
20
21;;; Autogenerating exported symbols
22
23(in-package "GLIB")
24
25(eval-when (:compile-toplevel :load-toplevel :execute)
26 (defexport defbinding (name &rest args)
27 (declare (ignore args))
28 (if (symbolp name)
29 name
30 (first name)))
31
32 (defexport def-type-method (name &rest args)
33 (declare (ignore args))
34 name)
35
36 (defexport define-enum-type (name &rest args)
37 (declare (ignore args))
38 name)
39
40 (defexport define-flags-type (name &rest args)
41 (declare (ignore args))
42 name)
43
44 (defexport define-types-by-introspection (prefix &rest args)
45 (list-autoexported-symbols (expand-type-definitions prefix args))))
46
47
48(export-from-file #p"clg:glib;utils.lisp")
49(export-from-file #p"clg:glib;glib.lisp")
50(export-from-file #p"clg:glib;proxy.lisp")
51(export-from-file #p"clg:glib;gboxed.lisp")
52(export-from-file #p"clg:glib;gtype.lisp")
53(export-from-file #p"clg:glib;gparam.lisp")
54(export-from-file #p"clg:glib;gcallback.lisp")
55(export-from-file #p"clg:glib;ginterface.lisp")
56(export-from-file #p"clg:glib;gobject.lisp")
57(export-from-file #p"clg:glib;genums.lisp")