X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=f4baf40f061c756b75d8f4f5f8698dc885c8f383;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=9cc5f677bda451062408fe3ace94a5df0df61321;hpb=7c5a7fb9e1fb0ade9e31de3ffdf02252669c3d4c;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