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