0.9.7.34:

[sbcl.git] / src / code / save.lisp

diff --git a/src/code/save.lisp b/src/code/save.lisp
index da69f13..ac69bb9 100644 (file)
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -119,12 +119,16 @@ sufficiently motivated to do lengthy fixes."
                     (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 ()