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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
Fix parens.
Date: Tue Sep 13 01:29:42 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.331 slime/swank.lisp:1.332
--- slime/swank.lisp:1.331	Tue Sep 13 00:42:54 2005
+++ slime/swank.lisp	Tue Sep 13 01:29:41 2005
@@ -1771,7 +1771,7 @@
     (let ((values (multiple-value-list (eval (from-string string)))))
       (fresh-line)
       (force-output)
-      (format-values-for-echo-area values)))))
+      (format-values-for-echo-area values))))
 
 (defslimefun eval-and-grab-output (string)
   (with-buffer-syntax ()
@@ -1842,8 +1842,8 @@
                      (multiple-value-list (funcall hook form)))
         until (not (eq res *slime-repl-eval-hook-pass*))
         finally (if (eq res *slime-repl-eval-hook-pass*)
-                    (setq values (multiple-value-list (eval form)))
-                    (setq values res))))
+                    (multiple-value-list (eval form))
+                    res)))
 
 (defun package-string-for-prompt (package)
   "Return the shortest nickname (or canonical name) of PACKAGE."