X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Feval.lisp;h=cafbb1cb88451c09805c665f7ee8461513d495cb;hb=d720bc359f03734ccb9baf66cb45dc01d623f369;hp=1839520ab240530051170fa2e64d222ee3ee6f56;hpb=04a651e749befd65ffd8bf49f689b6e7d55607e2;p=sbcl.git

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 1839520..cafbb1c 100644
--- a/src/code/eval.lisp
+++ b/src/code/eval.lisp
@@ -162,7 +162,7 @@
              ;; with DEFINE-SYMBOL-MACRO, keeping the code walkers
              ;; happy.
              (:alien
-              (%simple-eval original-exp lexenv))))
+              (sb!alien-internals:alien-value exp))))
           (list
            (let ((name (first exp))
                  (n-args (1- (length exp))))