diff --git a/tools/comcom.lisp b/tools/comcom.lisp index 11b32b9d142be4680342013e23470fa8903f0c14..1f757a3b487167f0b5ec2e41715dfa72cf5ac7d2 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 225f5a1fba06754fa075028eb61feaa72b6354e6..cbc114264b094fb64797a520f742baac968a873b 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 bc99b2d77ddc6a642304a0f3d325341caa9e02de..c37de3133053475129333ad6125e3632360d78b2 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 437361f449f7fa76f41f0165cb91d19288bd107c..88a43434dc0d4f83f21e46983470272ecd891517 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.