[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv3345

Modified Files:
	swank.lisp 
Log Message:
swank.lisp (escape-string): Fix thinko.

--- /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:28:41	1.644
+++ /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:38:47	1.645
@@ -2303,7 +2303,7 @@
             (write-string "..." stream)
             (return))
           (let ((probe (assoc c map)))
-            (cond (probe (write-string (cadr probe) stream))
+            (cond (probe (write-string (cdr probe) stream))
                   (t (write-char c stream)))))
     (write-char #\" stream)))