X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-alieneval.lisp;h=803d7f8bf6231ae22e6b986c50693c2e59ccf1be;hb=cee8ef591040db9a79cdd19297867672a9529051;hp=206baa48cc8f50154786cad24bc0b53ccf7912fe;hpb=34f08eca171fca180a1d75c35c86816acf20a375;p=sbcl.git

diff --git a/src/code/early-alieneval.lisp b/src/code/early-alieneval.lisp
index 206baa4..803d7f8 100644
--- a/src/code/early-alieneval.lisp
+++ b/src/code/early-alieneval.lisp
@@ -55,6 +55,6 @@
              sap>
              #!-:stack-grows-downward-not-upward
              sap<
-             (int-sap (get-lisp-obj-address (car x))) fp)
+             (int-sap (sb!kernel:get-lisp-obj-address (car x))) fp)
         (return (values (car x) (cdr x)))))))