CMUCL commit: intl-branch src (bootfiles/20a/boot-2010-02-1.lisp code/package.lisp)

[Raymond Toy]

    Date: Saturday, February 13, 2010 @ 23:00:01
  Author: rtoy
    Path: /project/cmucl/cvsroot/src
     Tag: intl-branch

Modified: bootfiles/20a/boot-2010-02-1.lisp code/package.lisp

code/package.lisp:
o Lock the INTL package.

bootfiles/20a/boot-2010-02-1.lisp:
o Update to disable package locks. 


-----------------------------------+
 bootfiles/20a/boot-2010-02-1.lisp |    2 ++
 code/package.lisp                 |    5 +++--
 2 files changed, 5 insertions(+), 2 deletions(-)


Index: src/bootfiles/20a/boot-2010-02-1.lisp
diff -u src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.4 src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.5
--- src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.4	Tue Feb  9 22:56:31 2010
+++ src/bootfiles/20a/boot-2010-02-1.lisp	Sat Feb 13 23:00:00 2010
@@ -1,5 +1,7 @@
 ;; Bootstrap file for adding support for localization.
 
+(setf lisp::*enable-package-locked-errors* nil)
+
 (defvar lisp::*environment-list-initialized* nil)
 
 (defpackage "INTL"
Index: src/code/package.lisp
diff -u src/code/package.lisp:1.77.10.4 src/code/package.lisp:1.77.10.5
--- src/code/package.lisp:1.77.10.4	Sat Feb 13 12:10:09 2010
+++ src/code/package.lisp	Sat Feb 13 23:00:01 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.77.10.4 2010-02-13 17:10:09 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/package.lisp,v 1.77.10.5 2010-02-14 04:00:01 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -155,7 +155,8 @@
                          "ALIEN-INTERNALS" "UNIX"
                          "CONDITIONS" "DEBUG" "DEBUG-INTERNALS" "SYSTEM"
                          "KERNEL" "EXTENSIONS" #+mp "MULTIPROCESSING"
-                         "WALKER" "XREF" "STREAM")))
+                         "WALKER" "XREF" "STREAM"
+			 "INTL")))
     (dolist (p package-names)
       (let ((p (find-package p)))
         (when p