0.pre7.55:

[sbcl.git] / src / compiler / alpha / macros.lisp

diff --git a/src/compiler/alpha/macros.lisp b/src/compiler/alpha/macros.lisp
index 9e02f62..d898045 100644 (file)
--- a/src/compiler/alpha/macros.lisp
+++ b/src/compiler/alpha/macros.lisp
@@ -87,8 +87,8 @@
 (defmacro lisp-jump (function lip)
   "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
   `(progn
-     (inst lda ,lip (- (ash sb!vm:function-code-offset sb!vm:word-shift)
-                            sb!vm:function-pointer-type)
+     (inst lda ,lip (- (ash sb!vm:simple-fun-code-offset sb!vm:word-shift)
+                            sb!vm:fun-pointer-type)
            ,function)
      (move ,function code-tn)
      (inst jsr zero-tn ,lip 1)))