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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
Doc fix.

Date: Mon Jun 21 00:29:18 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.198 slime/swank.lisp:1.199
--- slime/swank.lisp:1.198	Sun Jun 20 23:26:13 2004
+++ slime/swank.lisp	Mon Jun 21 00:29:18 2004
@@ -703,11 +703,11 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun prefixed-var (prefix variable-symbol)
-    "(PREFIXED-VAR '*FOO* \"BAR\") => *FOO-BAR*"
+    "(PREFIXED-VAR \"FOO\" '*BAR*) => *FOO-BAR*"
     (let ((basename (subseq (symbol-name variable-symbol) 1)))
       (intern (format nil "*~A-~A" prefix basename)
               (symbol-package variable-symbol)))))
-        
+
 ;;;;; Global redirection setup
 
 (setup-stream-indirection *standard-output*)