[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv32550

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (condition-references): It's still needed.



--- /project/slime/cvsroot/slime/ChangeLog	2007/09/10 20:09:52	1.1210
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/10 21:33:35	1.1211
@@ -1,4 +1,6 @@
-2007-09-10  Helmut Eller  <heller at common-lisp.net>
+2007-09-10  Helmut Eller  <helmut at localhost>
+
+	* swank-sbcl.lisp (condition-references): It's still needed.
 
 	* slime.el (sldb-dispatch-extras): Add missing quote.
 
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2007/09/10 15:39:05	1.183
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2007/09/10 21:33:36	1.184
@@ -325,6 +325,11 @@
     (sb-int:encapsulated-condition (sb-int:encapsulated-condition condition))
     (t condition)))
 
+(defun condition-references (condition)
+  (if (typep condition 'sb-int:reference-condition)
+      (externalize-reference
+       (sb-int:reference-condition-references condition))))
+
 (defun compiler-note-location (context)
   (if context
       (locate-compiler-note