Using EXPORT-FROM-SYSTEM to autoexport symbols

diff --git a/atk/export.lisp b/atk/export.lisp
index f1a0c93bf47e8fb1c5f86e9784e4c783e96a673a..3b01acc5beeb38bfb494c26f44ba9e44a7aad2f1 100644 (file)
--- a/atk/export.lisp
+++ b/atk/export.lisp
@@ -1,4 +1,4 @@
 (in-package "ATK")
 
 ;;; Autogenerating exported symbols
-(export-from-file #p"clg:atk;atk.lisp")
+(export-from-system)

diff --git a/cairo/export.lisp b/cairo/export.lisp
index 9c517e8aa9bd53e89c46fc75eb49e109f98c4d35..faa42d8c29d0df08d39cf9540717bf7360b43339 100644 (file)
--- a/cairo/export.lisp
+++ b/cairo/export.lisp
@@ -20,5 +20,4 @@   (defexport defpath (name args &optional relative-p)
 
 
 ;;; Autogenerating exported symbols
-(export-from-file #p"clg:cairo;cairo.lisp")
-  
\ No newline at end of file
+(export-from-system)

diff --git a/gdk/export.lisp b/gdk/export.lisp
index 1a8837b9b08eef88f6d08a597c9dbbc94bf9e5a8..6edaad55dd455cdd253adb63894be5f5850b916e 100644 (file)
--- a/gdk/export.lisp
+++ b/gdk/export.lisp
@@ -1,7 +1,4 @@
 (in-package "GDK")
 
-;;; Autogenerating exported symbols
-(export-from-file #p"clg:gdk;gdkevents.lisp")
-(export-from-file #p"clg:gdk;gdktypes.lisp")
-(export-from-file #p"clg:gdk;gdk.lisp")
-(export-from-file #p"clg:gdk;pixbuf.lisp")
+;; ;;; Autogenerating exported symbols
+(export-from-system)

diff --git a/gtk/export.lisp b/gtk/export.lisp
index 232406d0e141c5a1025bca2b5b8b25831470d519..70aee9c12c5b97c433afd341ac4d953e92c48bc8 100644 (file)
--- a/gtk/export.lisp
+++ b/gtk/export.lisp
@@ -1,19 +1,6 @@
 (in-package "GTK")
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defvar *gtk-files* 
-    (list 
-     #p"clg:gtk;gtktypes.lisp"
-     #p"clg:gtk;gtkwidget.lisp"
-     #p"clg:gtk;gtkcontainer.lisp"
-     #p"clg:gtk;gtk.lisp"
-     #p"clg:gtk;gtktree.lisp"
-     #p"clg:gtk;gtktext.lisp"
-     #p"clg:gtk;gtkaction.lisp"
-     #p"clg:gtk;gtkselection.lisp"
-     #p"clg:gtk;gtkutils.lisp"
-     #p"clg:gtk;gtkstyle.lisp"))
-
   (defexport define-style-color-accessor (name type)
     (declare (ignore type))
     name)
@@ -23,7 +10,7 @@   (defexport define-style-gc-reader (name type)
     name))
 
 ;;; Autogenerating exported symbols
-(export-from-files #.*gtk-files*)
+(export-from-system)
 
 
 ;;; Now re-export some of the symbols from the CLG package
@@ -35,4 +22,4 @@  (defexport defclass (class superclasses &optional slotdefs &rest options)
    (declare (ignore superclasses options))
    (export-defclass-form class slotdefs nil))
 
- (export-from-files #.*gtk-files* "CLG"))
+ (export-from-system "CLG"))

diff --git a/pango/export.lisp b/pango/export.lisp
index 41b6cad59f47dcfc7e0dd31a1659bf7966e38eb3..4ea78471aece4353db7369a21f2e855662b7a654 100644 (file)
--- a/pango/export.lisp
+++ b/pango/export.lisp
@@ -1,4 +1,4 @@
 (in-package "PANGO")
 
 ;;; Autogenerating exported symbols
-(export-from-file #p"clg:pango;pango.lisp")
+(export-from-system)

diff --git a/rsvg/export.lisp b/rsvg/export.lisp
index f5b14000f69f0d43189164d0c36139cec8456397..b52adecf3a1e4b12eb9abc2e932934592bb63095 100644 (file)
--- a/rsvg/export.lisp
+++ b/rsvg/export.lisp
@@ -1,4 +1,4 @@
 (in-package "RSVG")
 
 ;;; Autogenerating exported symbols
-(export-from-file #p"clg:rsvg;rsvg.lisp")
+(export-from-system)