[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (eval-in-frame-aux): Don't bind *package* during
eval.

--- /project/slime/cvsroot/slime/ChangeLog	2011/11/21 19:52:25	1.2246
+++ /project/slime/cvsroot/slime/ChangeLog	2011/11/27 17:57:41	1.2247
@@ -1,3 +1,8 @@
+2011-11-27  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (eval-in-frame-aux): Don't bind *package* during
+	eval.
+
 2011-11-21  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-cmucl.lisp: Trigger compilation of utf8 stuff before first
--- /project/slime/cvsroot/slime/swank.lisp	2011/11/21 19:46:11	1.761
+++ /project/slime/cvsroot/slime/swank.lisp	2011/11/27 17:57:41	1.762
@@ -2668,9 +2668,10 @@
      ,form))
 
 (defun eval-in-frame-aux (frame string package print)
-  (with-buffer-syntax (package)
-    (let ((form (wrap-sldb-vars (parse-string string package))))
-      (funcall print (multiple-value-list (eval-in-frame form frame))))))
+  (let* ((form (wrap-sldb-vars (parse-string string package)))
+         (values (multiple-value-list (eval-in-frame form frame))))
+    (with-buffer-syntax (package)
+      (funcall print values))))
 
 (defslimefun eval-string-in-frame (string frame package)
   (eval-in-frame-aux frame string package #'format-values-for-echo-area))