X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftoplevel.lisp;h=607113183f93100c75a3c2ce301e196bb4ee0974;hb=007bcd5aac2f3a1e714563bd39f7a2db2d0bf7c2;hp=95cd0ec62d7feb5858680edf5a3f15f2dde7efcb;hpb=121a6e2e935db79d09b5e687bd4380fbaa17ed93;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 95cd0ec..6071131 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -291,13 +291,13 @@ command-line.")
 (defvar +++ nil #!+sb-doc "the previous value of ++")
 (defvar -   nil #!+sb-doc "the form currently being evaluated")
 
-(defun interactive-eval (form)
+(defun interactive-eval (form &key (eval #'eval))
   #!+sb-doc
   "Evaluate FORM, returning whatever it returns and adjusting ***, **, *,
 +++, ++, +, ///, //, /, and -."
   (setf - form)
   (unwind-protect
-       (let ((results (multiple-value-list (eval form))))
+       (let ((results (multiple-value-list (funcall eval form))))
          (setf /// //
                // /
                / results