X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Fdebug.lisp;h=76eef9784364f02bef8663baeb7329b4adccb2cf;hb=644a1ff36dd578321fd0592aa47748e8af741542;hp=2b8787ae95c464c26bf56d2a6c47655bb47f9673;hpb=d36b416ae1fe7ba8a8d8e4ad7493458638028075;p=sbcl.git

diff --git a/contrib/sb-aclrepl/debug.lisp b/contrib/sb-aclrepl/debug.lisp
index 2b8787a..76eef97 100644
--- a/contrib/sb-aclrepl/debug.lisp
+++ b/contrib/sb-aclrepl/debug.lisp
@@ -6,9 +6,11 @@
 
 (cl:in-package :sb-aclrepl)
 
-
+;;; FIXME: These declaims violate package locks. Are they needed at
+;;; all? Seems not.
+#+ignore
 (declaim (special
-	  sb-debug::*debug-command-level sb-debug::*debug-command-level*
+	  sb-debug::*debug-command-level*
 	  sb-debug::*real-stack-top* sb-debug::*stack-top*
 	  sb-debug::*stack-top-hint* sb-debug::*current-frame*
 	  sb-debug::*flush-debug-errors*))
@@ -45,7 +47,7 @@
 	   
 	   (if (zerop *break-level*) ; restart added by SBCL
 	       (repl :continuable continuable)       
-	       (let ((level *break-level*)) 
+	       (let ((level *break-level*))
 		 (with-simple-restart
 		     (abort "~@<Reduce debugger level (to break level ~W).~@:>"
 			    level)