0.pre7.54:

[sbcl.git] / src / compiler / generic / objdef.lisp

diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp
index ef1aa30..3dfb2f8 100644 (file)
--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -171,9 +171,9 @@
           :set-known (unsafe)
           :set-trans (setf %function-arglist))
   (type :ref-known (flushable)
-       :ref-trans %function-type
+       :ref-trans %fun-type
        :set-known (unsafe)
-       :set-trans (setf %function-type))
+       :set-trans (setf %fun-type))
   (code :rest-p t :c-type "unsigned char"))
 
 (define-primitive-object (return-pc :lowtag other-pointer-type :header t)