X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=make-target-2.sh;h=6b3cd21aafe7e4ea17ae511adfbc45c5af731ce6;hb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;hp=fb1c8c1e3aaf71bd12acf0e2ac22955acaf957c7;hpb=8b64d57b865fec6ba082dda965146b5e8aa877b3;p=sbcl.git

diff --git a/make-target-2.sh b/make-target-2.sh
index fb1c8c1..6b3cd21 100644
--- a/make-target-2.sh
+++ b/make-target-2.sh
@@ -78,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