[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (close-connection): Fix thinko.

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:05:41	1.2232
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/06 17:05:52	1.2233
@@ -1,5 +1,9 @@
 2011-11-06  Helmut Eller  <heller at common-lisp.net>
 
+	* swank.lisp (close-connection): Fix thinko.
+
+2011-11-06  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-backend.lisp (accept-connection): Improve docstring.  In
 	particular say that we want a binary stream if the EXTERNAL-FORMAT
 	argument is nil.
--- /project/slime/cvsroot/slime/swank.lisp	2011/11/03 18:31:31	1.755
+++ /project/slime/cvsroot/slime/swank.lisp	2011/11/06 17:05:53	1.756
@@ -1095,7 +1095,8 @@
                         ;;  type: ~S~%~
                         ;;  encoding: ~A vs. ~A~%~
                         ;;  style: ~S dedicated: ~S]~%"
-            (mapcar #'escape-non-ascii (mapcar #'frame-to-string backtrace))
+            (loop for (i f) in backtrace collect 
+                  (ignore-errors (format nil "~d: ~a" i (escape-non-ascii f))))
             (escape-non-ascii (safe-condition-message condition) )
             (type-of condition)
             (connection.coding-system c)