repos
/
smoke
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Fix undefine init_smoke* C function & cleanup finalizers when a image is saved.
Annotate for file src/utils/image/impl/sbcl.lisp
2009-05-19 tobias
1
(in-package :smoke)
13:59:22 '
2
'
3
(eval-when (:compile-toplevel :load-toplevel :execute)
'
4
(defvar *startup-functions* nil
'
5
"Functions to run (in order) on startup.")
'
6
(defun add-startup-function (function)
'
7
(setf *startup-functions*
'
8
(nconc *startup-functions* (list function))))
'
9
(defun run-startup-functions ()
'
10
(mapcar #'funcall *startup-functions*)))
'
11
'
12
(eval-when (:load-toplevel :execute)
'
13
(push #'run-startup-functions sb-ext:*init-hooks*))
2009-07-02 tobias
14
(defmacro eval-on-save (() &body body)
19:08:40 '
15
`(eval-when (:load-toplevel)
'
16
(push #'(lambda ()
'
17
(let ((*package* ,*package*))
'
18
,@body))
'
19
sb-ext:*save-hooks*)))
'
20