early-alieneval: Fix package-related thinko with saved-fp-and-pc logic.

[sbcl.git] / src / code / early-alieneval.lisp

diff --git a/src/code/early-alieneval.lisp b/src/code/early-alieneval.lisp
index 206baa4..803d7f8 100644 (file)
--- 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)))))))