X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-target-2.sh;h=6b3cd21aafe7e4ea17ae511adfbc45c5af731ce6;hb=80f222325e1f677e5cf8de01c6990906fa47f65d;hp=a5ee9faf7bd038ae4afc0cf710ab08188588fdf5;hpb=cd13034f9415f64cdaa05893a4ac5ff1e95c97bd;p=sbcl.git

diff --git a/make-target-2.sh b/make-target-2.sh
index a5ee9fa..6b3cd21 100644
--- a/make-target-2.sh
+++ b/make-target-2.sh
@@ -65,7 +65,6 @@ echo //doing warm init
 	;; (GC :FULL T gets us down to about 38 Mbytes, but PURIFY
 	;; gets us down to about 19 Mbytes.)
 	(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
@@ -79,6 +78,12 @@ echo //doing warm init
 		             (space 1)
 		             (speed 1)))
 
+        ;; Lock internal packages
+        #+sb-package-locks
+        (dolist (p (list-all-packages))
+          (unless (member p (mapcar #'find-package '(:keyword :cl-user)))
+             (lock-package p)))
+
         (sb-int:/show "done with warm.lisp, about to SAVE-LISP-AND-DIE")
 	;; Even if /SHOW output was wanted during build, it's probably
 	;; not wanted by default after build is complete. (And if it's