From: Alastair Bridgewater <nyef@kana.lisphacker.com>
Date: Sat, 11 May 2013 16:31:40 +0000 (-0400)
Subject: early-alieneval: Fix package-related thinko with saved-fp-and-pc logic.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4adf30d41c780e297cc1916125963e6282fa3c9a;p=sbcl.git

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