X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Finsts.lisp;h=098dfaa5c34b8a2e973427cae6e7b8100d5173a3;hb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;hp=147b872e91c65cde5e518e02671ba0d9e1888208;hpb=be9eb6c67b5f43a095c3de17bea945c309d662e4;p=sbcl.git

diff --git a/src/compiler/alpha/insts.lisp b/src/compiler/alpha/insts.lisp
index 147b872..098dfaa 100644
--- a/src/compiler/alpha/insts.lisp
+++ b/src/compiler/alpha/insts.lisp
@@ -539,10 +539,10 @@
 			  (ash (+ posn (component-header-length))
 			       (- type-bits word-shift)))))))
 
-(define-instruction function-header-word (segment)
+(define-instruction simple-fun-header-word (segment)
   (:cost 0)
   (:emitter
-   (emit-header-data segment function-header-type)))
+   (emit-header-data segment simple-fun-header-type)))
 
 (define-instruction lra-header-word (segment)
   (:cost 0)