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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(print-frame): Catch errors during printing.
Date: Fri Sep  3 23:08:51 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.113 slime/swank-cmucl.lisp:1.114
--- slime/swank-cmucl.lisp:1.113	Sat Aug 28 04:27:08 2004
+++ slime/swank-cmucl.lisp	Fri Sep  3 23:08:51 2004
@@ -1477,7 +1477,10 @@
 
 (defimplementation print-frame (frame stream)
   (let ((*standard-output* stream))
-    (debug::print-frame-call frame :verbosity 1 :number nil)))
+    (handler-case 
+        (debug::print-frame-call frame :verbosity 1 :number nil)
+      (error (e)
+        (ignore-errors (princ e stream))))))
 
 (defimplementation frame-source-location-for-emacs (index)
   (code-location-source-location (di:frame-code-location (nth-frame index))))