Add support for saving images with Clozure

[cl-gtk2.git] / glib / glib.lisp

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 1ee33f6..13f3dfe 100755 (executable)
--- a/glib/glib.lisp
+++ b/glib/glib.lisp
@@ -56,9 +56,13 @@
 
 #+sbcl
 (pushnew 'run-initializers sb-ext:*init-hooks*)
+#+openmcl
+(pushnew 'run-initializers ccl:*restore-lisp-functions*)
 
 #+sbcl
 (pushnew 'run-finalizers sb-ext:*save-hooks*)
+#+openmcl
+(pushnew 'run-finalizers ccl:*save-exit-functions*)
 
 (defmacro at-init ((&rest keys) &body body)
   "