0.7.9.9:

[sbcl.git] / src / code / eval.lisp

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index e9721f2..f8ef5b0 100644 (file)
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -204,7 +204,7 @@
                          (dolist (arg (rest exp))
                            (args (eval-in-lexenv arg lexenv)))
                          (apply (symbol-function name) (args)))
-               (%eval original-exp lexenv))))))
+               (%eval exp lexenv))))))
       (t
        exp))))
 \f