X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffull-eval.lisp;h=08af2682b5400462c95b3803a37a2d7cffbbfd0c;hb=829ced3e78a23ba153ba4db64e6ea6984c2313b6;hp=718f5f13c33981a3abdc64ffbfcfc1f179410a6f;hpb=709547dfb0905983f23bf131c43affe7788a7e9f;p=sbcl.git

diff --git a/src/code/full-eval.lisp b/src/code/full-eval.lisp
index 718f5f1..08af268 100644
--- a/src/code/full-eval.lisp
+++ b/src/code/full-eval.lisp
@@ -522,9 +522,7 @@
           (t (values (cdr binding) :variable)))
         (case (sb!int:info :variable :kind symbol)
           (:macro (values (macroexpand-1 symbol) :expansion))
-          (:alien (let ((type (sb!int:info :variable :alien-info symbol)))
-                    (values (sb!alien::%heap-alien type)
-                            :variable)))
+          (:alien (values (sb!alien-internals:alien-value symbol) :variable))
           (t (values (symbol-value symbol) :variable))))))
 
 ;;; Retrieve the function/macro binding of the symbol NAME in