[slime-cvs] CVS slime

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv31313

Modified Files:
	swank-sbcl.lisp 
Log Message:
sbcl: fix bug introduced two commits ago

  SWANK package not there yet when swank-sbcl.lisp is loaded.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/03/30 09:45:00	1.304
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/03/30 14:54:46	1.305
@@ -1129,8 +1129,10 @@
 
 (defun lisp-source-location (code-location)
   (let ((source (prin1-to-string
-                 (sb-debug::code-location-source-form code-location 100))))
-    (if (and (typep swank::*swank-debugger-condition* 'sb-impl::step-form-condition)
+                 (sb-debug::code-location-source-form code-location 100)))
+        (condition (intern "*swank-debugger-condition*" :swank)))
+    (if (and (boundp condition)
+             (typep (symbol-value condition) 'sb-impl::step-form-condition)
              (and (search "SB-IMPL::WITH-STEPPING-ENABLED" source :test #'char-equal)
                   (search "SB-IMPL::STEP-FINISHED" source :test #'char-equal)))
         ;; The initial form is utterly uninteresting -- and almost certainly right there