sb-alien-internals: ALIEN-VALUE to extract value of a symbol bound to an alien

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

diff --git a/src/code/eval.lisp b/src/code/eval.lisp
index 1839520..cafbb1c 100644 (file)
--- 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))))