[slime-cvs] CVS slime

[CVS User heller]

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

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

--- /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:28:31	1.642
+++ /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:28:36	1.643
@@ -2292,7 +2292,7 @@
 
 (defun escape-string (string stream &key length (map '((#\" . "\\\"")
                                                        (#\\ . "\\\\"))))
-  "Write STRING to STREAM with surronded by double-quotes.
+  "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."
   (let ((limit (or length array-dimension-limit)))