projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.98:
[sbcl.git]
/
src
/
code
/
save.lisp
diff --git
a/src/code/save.lisp
b/src/code/save.lisp
index
8b3f62a
..
cb9956f
100644
(file)
--- a/
src/code/save.lisp
+++ b/
src/code/save.lisp
@@
-17,9
+17,9
@@
\f
;;;; SAVE-LISP-AND-DIE itself
\f
;;;; SAVE-LISP-AND-DIE itself
-(sb!alien:def-alien-routine "save" (sb!alien:boolean)
+(sb!alien:define-alien-routine "save" (sb!alien:boolean)
(file sb!c-call:c-string)
(file sb!c-call:c-string)
- (initial-function (sb!alien:unsigned #.sb!vm:word-bits)))
+ (initial-function (sb!alien:unsigned #.sb!vm:n-word-bits)))
;;; FIXME: When this is run without the PURIFY option,
;;; it seems to save memory all the way up to the high-water mark,
;;; FIXME: When this is run without the PURIFY option,
;;; it seems to save memory all the way up to the high-water mark,
@@
-64,9
+64,6
@@
saved core is loaded."
#!+mp (sb!mp::shutdown-multi-processing)
saved core is loaded."
#!+mp (sb!mp::shutdown-multi-processing)
- #!+sb-interpreter
- (when (fboundp 'sb!eval:flush-interpreted-function-cache)
- (sb!eval:flush-interpreted-function-cache))
;; FIXME: What is this for? Explain.
(when (fboundp 'cancel-finalization)
(cancel-finalization sb!sys:*tty*))
;; FIXME: What is this for? Explain.
(when (fboundp 'cancel-finalization)
(cancel-finalization sb!sys:*tty*))