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

  * Forgot a package prefix for GET-LISP-OBJ-ADDRESS, because the
function symbol was exported from SB!ALIEN-INTERNALS yet defined
in SB!ALIEN, and the prefix wouldn't have been necessary from
SB!ALIEN-INTERNALS.

  * Thanks to Stas Boukarev for the heads-up.

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)))))))