Automatic initialization after loading

[clg] / gtk / gtk.asd

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index 34752c6abe53edfe9c54125f74e683630ecad0aa..db9ae6c26946e9955df0058490b3db7482e03fae 100644 (file)
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -3,7 +3,8 @@
 (asdf:oos 'asdf:load-op :clg-tools)
 
 (defpackage "GTK-SYSTEM"
 (asdf:oos 'asdf:load-op :clg-tools)
 
 (defpackage "GTK-SYSTEM"

-  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG"))
+  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG")
+  (:export "CLG-INIT"))

 
 (in-package "GTK-SYSTEM")
 
 
 (in-package "GTK-SYSTEM")
 


@@ -26,4 +27,5 @@
                 (:file "gtkcontainer" :depends-on ("gtktypes"))
                 (:file "gtk" :depends-on ("gtktypes"))
                 (:file "gtkutils" :depends-on ("gtk"))
                 (:file "gtkcontainer" :depends-on ("gtktypes"))
                 (:file "gtk" :depends-on ("gtktypes"))
                 (:file "gtkutils" :depends-on ("gtk"))

-                (:file "export" :depends-on ("gtktypes" "gtk"))))
+                (:file "export" :depends-on ("gtktypes" "gtk")))
+    :perform (load-op :after (op gtk) (clg-init)))