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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(oneway-eval-string): Bind *package* to *buffer-package*.

Date: Tue Apr 27 13:47:09 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.175 slime/swank.lisp:1.176
--- slime/swank.lisp:1.175	Mon Apr 26 17:59:25 2004
+++ slime/swank.lisp	Tue Apr 27 13:47:09 2004
@@ -1087,9 +1087,9 @@
 (defslimefun oneway-eval-string (string buffer-package)
   "Evaluate STRING in BUFFER-PACKAGE, without sending a reply.
 The debugger hook is inhibited during the evaluation."
-  (let ((*buffer-package* (guess-package-from-string buffer-package))
-        (*package* *buffer-package*)
-        (*debugger-hook* nil))
+  (let* ((*buffer-package* (guess-package-from-string buffer-package))
+         (*package* *buffer-package*)
+         (*debugger-hook* nil))
     (eval (read-form string))))
 
 (defun format-values-for-echo-area (values)