From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 4 Oct 2009 20:31:24 +0000 (+0400)
Subject: Add support for saving images with Clozure
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5273527d9bafc94f028f80b9abbd43087edbbb08;p=cl-gtk2.git

Add support for saving images with Clozure
---

diff --git a/glib/glib.lisp b/glib/glib.lisp
index 1ee33f6..13f3dfe 100755
--- 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)
   "