X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-target-2.sh;h=a5ee9faf7bd038ae4afc0cf710ab08188588fdf5;hb=c27ee1dba86042cb431c298699c19ed3fcd70026;hp=507ddf097df45a3717c3fd070cfcbde58cfe8837;hpb=a237d7e039a923e109a4eefbd4e6a563a2ba0521;p=sbcl.git

diff --git a/make-target-2.sh b/make-target-2.sh
index 507ddf0..a5ee9fa 100644
--- a/make-target-2.sh
+++ b/make-target-2.sh
@@ -64,9 +64,9 @@ echo //doing warm init
 	;; GC :FULL T isn't nearly as effective as PURIFY here?
 	;; (GC :FULL T gets us down to about 38 Mbytes, but PURIFY
 	;; gets us down to about 19 Mbytes.)
-	(let ((*gc-notify-stream* *standard-output*))
-	  (sb-int:/show "done with warm.lisp, about to GC :FULL T")
-	  (gc :full t))
+	(sb-int:/show "done with warm.lisp, about to GC :FULL T")
+	(sb-c::pack-before-gc-hook) ; KLUDGE
+	(gc :full t)
 
         ;; resetting compilation policy to neutral values in
         ;; preparation for SAVE-LISP-AND-DIE as final SBCL core (not