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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(interactive-eval): Bind *package* to *buffer-package*, so that `C-x
C-e' and related commands evaluate in the expected package.

Date: Mon Apr 26 17:59:26 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.174 slime/swank.lisp:1.175
--- slime/swank.lisp:1.174	Mon Apr 26 14:38:39 2004
+++ slime/swank.lisp	Mon Apr 26 17:59:25 2004
@@ -1098,7 +1098,9 @@
           (t "; No value"))))
 
 (defslimefun interactive-eval (string)
-  (let ((values (multiple-value-list (eval (from-string string)))))
+  (let ((values (multiple-value-list
+                 (let ((*package* *buffer-package*))
+                   (eval (from-string string))))))
     (fresh-line)
     (force-output)
     (format-values-for-echo-area values)))