Update of /cvsroot/sbcl/sbcl/src/cold
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23778/src/cold
0.8.12.18: Rearranging COMPILER-ERROR protocol
* Enhance the protocol to attach the original
condition and source to the PROGRAM-ERROR.
* Make compile-time package-lock-violations from
lexical constructs signal runtime PROGRAM-ERRORS,
and not drop into debugger during compilation while
still allowing users to handle them during compilation.
* While at it, make file compiler errors from undumpable
constants more informative.
* Plus a few cosmetic changes to package locking guts.
RCS file: /cvsroot/sbcl/sbcl/src/cold/shared.lisp,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- shared.lisp 29 Jun 2004 08:50:59 -0000 1.33
+++ shared.lisp 4 Jul 2004 13:03:28 -0000 1.34
@@ -23,13 +23,16 @@
-;;; FIXME: This is embarassing -- SBCL violates SBCL style-package locks
-;;; on the host lisp. Rather then find and fix all 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.
-#+(and sbcl sb-package-locks)
-(dolist (p (list-all-packages))
- (sb-ext:unlock-package p))
+;;; 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
+(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