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

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 9f1a916..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
@@ -497,7 +500,7 @@
        ;; get you out to here.
        (with-simple-restart
 	   (abort
-	    "Reduce debugger level (leaving debugger, returning to toplevel).")
+	    "~@<Reduce debugger level (leaving debugger, returning to toplevel).~@:>")
 	 (catch 'toplevel-catcher
 	   #!-sunos (sb!unix:unix-sigsetmask 0)	; FIXME: What is this for?
 	   ;; in the event of a control-stack-exhausted-error, we should