X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=f4baf40f061c756b75d8f4f5f8698dc885c8f383;hb=3eb39e017e52b5d704e7d33405c873af52a533fd;hp=9cc5f677bda451062408fe3ace94a5df0df61321;hpb=50b745c43a03ed3407df5365fee414bcac0bb44c;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 9cc5f67..f4baf40 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -260,7 +260,10 @@
   "Evaluate FORM, returning whatever it returns and adjusting ***, **, *,
    +++, ++, +, ///, //, /, and -."
   (setf - form)
-  (let ((results (multiple-value-list (eval form))))
+  (let ((results
+	 (multiple-value-list
+	  (eval-in-lexenv form
+			  (make-null-interactive-lexenv)))))
     (setf /// //
 	  // /
 	  / results