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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(interactive-eval): Evaluate in *buffer-package*.

Date: Fri Oct 31 14:25:11 2003
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.47 slime/swank.lisp:1.48
--- slime/swank.lisp:1.47	Fri Oct 31 11:54:31 2003
+++ slime/swank.lisp	Fri Oct 31 14:25:06 2003
@@ -193,7 +193,9 @@
         (send-to-emacs (if ok `(:ok ,result) '(:aborted)))))))
 
 (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))))))
     (force-output)
     (format nil "~{~S~^, ~}" values)))