[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	swank.lisp 
Log Message:
*** empty log message ***

--- /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:28:36	1.643
+++ /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:28:41	1.644
@@ -2294,7 +2294,7 @@
                                                        (#\\ . "\\\\"))))
   "Write STRING to STREAM surronded by double-quotes.
 LENGTH -- if non-nil truncate output after LENGTH chars.
-MAP -- rewrite the chars in STRING according this alist."
+MAP -- rewrite the chars in STRING according to this alist."
   (let ((limit (or length array-dimension-limit)))
     (write-char #\" stream)
     (loop for c across string