0.pre7.55:

[sbcl.git] / src / assembly / x86 / assem-rtns.lisp

diff --git a/src/assembly/x86/assem-rtns.lisp b/src/assembly/x86/assem-rtns.lisp
index c56dbdc..1adceb5 100644 (file)
--- a/src/assembly/x86/assem-rtns.lisp
+++ b/src/assembly/x86/assem-rtns.lisp
@@ -165,8 +165,8 @@
   ;; And jump into the function.
     (inst jmp
          (make-ea :byte :base eax
-                  :disp (- (* closure-function-slot word-bytes)
-                           function-pointer-type)))
+                  :disp (- (* closure-fun-slot word-bytes)
+                           fun-pointer-type)))
 
   ;; All the arguments fit in registers, so load them.
   REGISTER-ARGS
@@ -183,8 +183,8 @@
 
   ;; And away we go.
   (inst jmp (make-ea :byte :base eax
-                    :disp (- (* closure-function-slot word-bytes)
-                             function-pointer-type))))
+                    :disp (- (* closure-fun-slot word-bytes)
+                             fun-pointer-type))))
 \f
 (define-assembly-routine (throw
                          (:return-style :none))