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

[Helmut Eller]

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

Modified Files:
	swank-backend.lisp 
Log Message:
(sldb-condition): Show the original condition in the message.
Date: Fri Jul 30 14:44:05 2004
Author: heller

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.62 slime/swank-backend.lisp:1.63
--- slime/swank-backend.lisp:1.62	Tue Jul 13 11:14:03 2004
+++ slime/swank-backend.lisp	Fri Jul 30 14:44:05 2004
@@ -327,6 +327,9 @@
   ((original-condition
     :initarg :original-condition
     :accessor original-condition))
+  (:report (lambda (condition stream)
+             (format stream "Condition in debugger code~@[: ~A~]" 
+                     (original-condition condition))))
   (:documentation
    "Wrapper for conditions that should not be debugged.