From 2a8147be96bb34d2f0aaea7a0d4c99e26146c3ab Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 8 Sep 2003 16:07:04 +0000
Subject: [PATCH] Disable package locks when rebuilding the various parts of
 CMUCL.

---
 tools/comcom.lisp     | 6 ++++--
 tools/pclcom.lisp     | 3 ++-
 tools/worldbuild.lisp | 4 +++-
 tools/worldcom.lisp   | 7 ++++---
 4 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/tools/comcom.lisp b/tools/comcom.lisp
index 11b32b9d1..1f757a3b4 100644
--- a/tools/comcom.lisp
+++ b/tools/comcom.lisp
@@ -1,9 +1,9 @@
-;;; -*- Package: User -*-
+;;; -*- Package: CL-USER -*-
 ;;;
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.55 2003/06/18 09:23:08 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.56 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -51,6 +51,8 @@
        (:external (declare (optimize-interface (safety 2) (debug 1))))))
 
 
+(setf lisp::*enable-package-locked-errors* nil)
+
 (comf "target:compiler/macros"
       :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
 (when *load-stuff*
diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index 225f5a1fb..cbc114264 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,11 +3,12 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.31 2003/06/18 10:50:14 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.32 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 (in-package "CL-USER")
+(setf lisp::*enable-package-locked-errors* nil)
 
 (when (find-package "PCL")
   ;; Load the lisp:documentation functions.
diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index bc99b2d77..c37de3133 100644
--- a/tools/worldbuild.lisp
+++ b/tools/worldbuild.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.49 2003/05/23 13:34:04 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.50 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 
 (in-package "LISP")
 
+(setf *enable-package-locked-errors* nil)
+
 (unless (fboundp 'genesis)
   (load "target:compiler/generic/new-genesis"))
 
diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 437361f44..88a43434d 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -1,4 +1,4 @@
-;;; -*- Package: USER -*-
+;;; -*- Package: CL-USER -*-
 ;;;
 ;;; **********************************************************************
 ;;; This code was written as part of the CMU Common Lisp project at
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.89 2003/06/18 11:07:40 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.90 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -36,7 +36,8 @@
 	(declare (optimize (safety 2))))
        ((:and :external (:match "LIST"))
 	(declare (optimize (safety 1))))))
-(let ((*byte-compile-top-level* nil))
+(let ((*byte-compile-top-level* nil)
+      (lisp::*enable-package-locked-errors* nil))
 
 ;;; these guys need to be first.
 (comf "target:code/struct") ; For structures.
-- 
GitLab