Update of /cvsroot/sbcl/sbcl/src/cold
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13992/src/cold
Modified Files:
shared.lisp
Log Message:
0.8.12.22: Minor changes to make SBCL build itself cleanly with
package locks enabled.
Index: shared.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/cold/shared.lisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- shared.lisp 4 Jul 2004 13:03:28 -0000 1.34
+++ shared.lisp 5 Jul 2004 02:30:42 -0000 1.35
@@ -23,17 +23,6 @@
(in-package "SB-COLD")
-;;; FIXME: This is embarassing -- SBCL violates SBCL style-package
-;;; locks on the host lisp. Rather then find and fix all the cases
-;;; right now, let's just remain self-hosting. The problems at least
-;;; involve a few defvars and local macros with names in the CL
-;;; package.
-#+sbcl
-(let ((plp (find-symbol PACKAGE-LOCKED-P :sb-ext)))
- (when (and plp (fboundp plp))
- (dolist (p (list-all-packages))
- (sb-ext::unlock-package p))))
-
;;; prefixes for filename stems when cross-compiling. These are quite arbitrary
;;; (although of course they shouldn't collide with anything we don't want to
;;; write over). In particular, they can be either relative path names (e.g.
|