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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(debugger-condition-for-emacs): Call new backend functions to add a
`references' list for Emacs.

Date: Tue Jun  8 16:57:57 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.187 slime/swank.lisp:1.188
--- slime/swank.lisp:1.187	Mon Jun  7 11:27:30 2004
+++ slime/swank.lisp	Tue Jun  8 16:57:57 2004
@@ -972,7 +972,7 @@
 printing."
   (let ((*print-pretty* t))
     (handler-case
-        (princ-to-string condition)
+        (format-sldb-condition condition)
       (error (cond)
         ;; Beware of recursive errors in printing, so only use the condition
         ;; if it is printable itself:
@@ -982,7 +982,8 @@
 (defun debugger-condition-for-emacs ()
   (list (safe-condition-message *swank-debugger-condition*)
         (format nil "   [Condition of type ~S]"
-                (type-of *swank-debugger-condition*))))
+                (type-of *swank-debugger-condition*))
+        (condition-references *swank-debugger-condition*)))
 
 (defun format-restarts-for-emacs ()
   "Return a list of restarts for *swank-debugger-condition* in a