(get-lisp-obj-address #'restart-lisp)))))
;; Save the restart function into a static symbol, to allow GC-AND-SAVE
;; access to it even after the GC has moved it.
+ #!+gencgc
(setf sb!vm::*restart-lisp-function* #'restart-lisp)
(cond (purify
(purify :root-structures root-structures
:environment-name environment-name)
(save-core nil))
(t
+ ;; Compact the environment even though we're skipping the
+ ;; other purification stages.
+ (sb!kernel::compact-environment-aux "Auxiliary" 200)
(save-core t)))))
(defun deinit ()
(dolist (hook *save-hooks*)
(with-simple-restart (continue "Skip this save hook.")
(funcall hook)))
- (when (fboundp 'cancel-finalization)
+ #!-win32 (when (fboundp 'cancel-finalization)
(cancel-finalization sb!sys:*tty*))
(profile-deinit)
(debug-deinit)