0.pre7.55:

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

diff --git a/src/assembly/alpha/assem-rtns.lisp b/src/assembly/alpha/assem-rtns.lisp
index c005c0f..3febb15 100644 (file)
--- a/src/assembly/alpha/assem-rtns.lisp
+++ b/src/assembly/alpha/assem-rtns.lisp
@@ -153,7 +153,7 @@
   DONE
   ;; We are done.  Do the jump.
   (progn
-    (loadw temp lexenv closure-function-slot function-pointer-type)
+    (loadw temp lexenv closure-fun-slot fun-pointer-type)
     (lisp-jump temp lip)))
 
 \f