X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Feval.lisp;h=f8ef5b0bccab8ff03939912a23e9156f7c977eeb;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=e9721f29059ffb7726c50c63b7c1aba3950fe5a2;hpb=3eb39e017e52b5d704e7d33405c873af52a533fd;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index e9721f2..f8ef5b0 100644
--- 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))))