Remove automatic system initialization

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index db9ae6c26946e9955df0058490b3db7482e03fae..34752c6abe53edfe9c54125f74e683630ecad0aa 100644 (file)
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -3,8 +3,7 @@
 (asdf:oos 'asdf:load-op :clg-tools)
 
 (defpackage "GTK-SYSTEM"
-  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG")
-  (:export "CLG-INIT"))
+  (:use "COMMON-LISP" "ASDF" "PKG-CONFIG"))
 
 (in-package "GTK-SYSTEM")
 
@@ -27,5 +26,4 @@
                 (:file "gtkcontainer" :depends-on ("gtktypes"))
                 (:file "gtk" :depends-on ("gtktypes"))
                 (:file "gtkutils" :depends-on ("gtk"))
-                (:file "export" :depends-on ("gtktypes" "gtk")))
-    :perform (load-op :after (op gtk) (clg-init)))
+                (:file "export" :depends-on ("gtktypes" "gtk"))))

diff --git a/gtk/gtkobject.lisp b/gtk/gtkobject.lisp
index a38ae9eee783dec7683cde2e19d70c4584e23da2..fa08641702f003d0d7f75c072c3b31e56a8773a1 100644 (file)
--- a/gtk/gtkobject.lisp
+++ b/gtk/gtkobject.lisp
@@ -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: gtkobject.lisp,v 1.17 2004/10/31 14:44:05 espen Exp $
+;; $Id: gtkobject.lisp,v 1.18 2004/11/03 16:54:24 espen Exp $
 
 
 (in-package "GTK")
@@ -92,8 +92,6 @@ (defbinding (gtk-init "gtk_parse_args") () nil
   (nil null)
   (nil null))
 
-(import 'gtk-system:clg-init)
-
 (defun clg-init (&optional display)
   "Initializes the system and starts the event handling"
   (unless (gdk:display-get-default)