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/ccl.lisp
2009-05-19 tobias
1
(in-package :smoke)
13:59:22 '
2
'
3
(defun add-startup-function (function)
'
4
(push function ccl:*lisp-startup-functions*))
2009-07-02 tobias
5
(defmacro eval-on-save (() &body body)
19:08:40 '
6
`(eval-when (:load-toplevel)
'
7
(push #'(lambda ()
'
8
(let ((*package* ,*package*))
'
9
,@body))
'
10
ccl:*save-exit-functions*)))
'
11