X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/c30cbffb140ef1c983f4d9e1e9cf17c1a37ecacd..406aa97b03d3f732c280b04e3f6c12cfc66e338f:/gtk/export.lisp

diff --git a/gtk/export.lisp b/gtk/export.lisp
index 232406d..70aee9c 100644
--- 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"))