X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=17dc2fbf57d7947813aba43d8a8cab441a1ac513;hb=333049ee307ddeb69d4b7eee3c2a381da494da31;hp=ddff8758ab60db3c82125864db18236575a793f3;hpb=9033eb6759e57f21e26e82bf63142152080108f4;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index ddff875..17dc2fb 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -270,7 +270,7 @@
                      (sb-alien-internals:unparse-alien-type
                       (sb-alien::heap-alien-info-type info)))
              (format stream "~@:_Address: #x~8,'0X"
-                     (sap-int (eval (sb-alien::heap-alien-info-sap-form info))))))
+                     (sap-int (sb-alien::heap-alien-info-sap info)))))
           ((eq kind :macro)
            (let ((expansion (info :variable :macro-expansion symbol)))
              (format stream "~@:_Expansion: ~S" expansion)))