[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(printer-variables sldb-print): Ooops. Better use sldb-print as prefix
than sldb alone.  *sldb-level* was already defined.
Date: Sun Oct 17 23:50:23 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.250 slime/swank.lisp:1.251
--- slime/swank.lisp:1.250	Sun Oct 17 20:10:03 2004
+++ slime/swank.lisp	Sun Oct 17 23:50:23 2004
@@ -1366,7 +1366,7 @@
   "The list of currenlty active restarts.")
 
 ;; A set of printer variables used in the debugger.
-(define-printer-variables sldb 
+(define-printer-variables sldb-print
   (pretty nil)
   (level 4)
   (length 10)
@@ -1382,7 +1382,7 @@
         (*sldb-level* (1+ *sldb-level*))
         (*swank-state-stack* (cons :swank-debugger-hook *swank-state-stack*)))
     (force-user-output)
-    (with-printer-settings sldb
+    (with-printer-settings sldb-print
       (call-with-debugging-environment
        (lambda () (sldb-loop *sldb-level*))))))