Thu Jul 2 21:08:40 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Fix undefine init_smoke* C function & cleanup finalizers when a image is saved.

--- old-smoke/src/utils/image/impl/sbcl.lisp 2014-10-30 08:13:53.000000000 +0100

+++ new-smoke/src/utils/image/impl/sbcl.lisp 2014-10-30 08:13:53.000000000 +0100

@@ -11,3 +11,10 @@

(eval-when (:load-toplevel :execute)

(push #'run-startup-functions sb-ext:*init-hooks*))

+

+(defmacro eval-on-save (() &body body)

+ `(eval-when (:load-toplevel)

+ (push #'(lambda ()

+ (let ((*package* ,*package*))

+ ,@body))

+ sb-ext:*save-hooks*)))