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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(format-sldb-condition, condition-references):
Implemented. Requires a recent (latest?) SBCL release.

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

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.86 slime/swank-sbcl.lisp:1.87
--- slime/swank-sbcl.lisp:1.86	Tue Jun  8 13:32:50 2004
+++ slime/swank-sbcl.lisp	Tue Jun  8 16:57:35 2004
@@ -524,6 +524,17 @@
     (cond (probe (throw (car probe) (eval-in-frame form index)))
           (t (format nil "Cannot return from frame: ~S" frame)))))
     
+;;;;; reference-conditions
+
+(defimplementation format-sldb-condition (condition)
+  (let ((sb-int:*print-condition-references* nil))
+    (princ-to-string condition)))
+
+(defimplementation condition-references (condition)
+  (if (typep condition 'sb-int:reference-condition)
+      (sb-int:reference-condition-references condition)
+      '()))
+
 
 ;;;; Profiling