(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."))
- #!-win32
- (when (fboundp 'cancel-finalization)
- (cancel-finalization sb!sys:*tty*))
(float-deinit)
(profile-deinit)
(debug-deinit)
- (foreign-deinit))
+ (foreign-deinit)
+ (stream-deinit)
+ (deinit-finalizers))