* 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.
sap>
#!-:stack-grows-downward-not-upward
sap<
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)))))))
(return (values (car x) (cdr x)))))))