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

[Alan Ruttenberg]

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

Modified Files:
	swank-openmcl.lisp 
Log Message:
Bind ccl::*signal-printing-errors* to nil inside debugger so that
error while printing error take us down.

Date: Sat Jan 24 13:18:36 2004
Author: aruttenberg

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.55 slime/swank-openmcl.lisp:1.56
--- slime/swank-openmcl.lisp:1.55	Wed Jan 21 19:36:46 2004
+++ slime/swank-openmcl.lisp	Sat Jan 24 13:18:36 2004
@@ -222,7 +222,8 @@
          (*sldb-restarts* (butlast
                            (compute-restarts *swank-debugger-condition*)))
          (*debugger-hook* nil)
-         (*package* *buffer-package*))
+         (*package* *buffer-package*)
+         (ccl::*signal-printing-errors* nil)) ; don't let error while printing error take us down
     (funcall debugger-loop-fn)))
 
 (defun format-restarts-for-emacs ()