From: Juho Snellman <jsnell@iki.fi>
Date: Thu, 20 Oct 2005 20:44:16 +0000 (+0000)
Subject: 0.9.5.79:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9a833110c5c1a709ec480520a7d758652b4d6900;p=sbcl.git

0.9.5.79:
	Compact the global environment info even when saving a core without
        purifying. Shrinks the x86-64 core by about 2.5MB.
---

diff --git a/src/code/save.lisp b/src/code/save.lisp
index 8dd87c9..ac69bb9 100644
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -126,6 +126,9 @@ sufficiently motivated to do lengthy fixes."
                    :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 ()
diff --git a/version.lisp-expr b/version.lisp-expr
index ffe2269..726046d 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.5.78"
+"0.9.5.79"