From 5273527d9bafc94f028f80b9abbd43087edbbb08 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Mon, 5 Oct 2009 00:31:24 +0400 Subject: [PATCH] Add support for saving images with Clozure --- glib/glib.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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) " -- 1.7.10.4