projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.13.20: added SB-EXT:*EXIT-HOOKS*
[sbcl.git]
/
src
/
code
/
save.lisp
diff --git
a/src/code/save.lisp
b/src/code/save.lisp
index
bb0bcc5
..
0373fce
100644
(file)
--- a/
src/code/save.lisp
+++ b/
src/code/save.lisp
@@
-147,9
+147,7
@@
sufficiently motivated to do lengthy fixes."
(save-core t)))))
(defun deinit ()
(save-core t)))))
(defun deinit ()
- (dolist (hook *save-hooks*)
- (with-simple-restart (continue "Skip this save hook.")
- (funcall hook)))
+ (call-hooks "save" *save-hooks*)
(when (rest (sb!thread:list-all-threads))
(error "Cannot save core with multiple threads running."))
(float-deinit)
(when (rest (sb!thread:list-all-threads))
(error "Cannot save core with multiple threads running."))
(float-deinit)