-(define-primitive-object (function :type function
- :lowtag function-pointer-type
- :header function-header-type)
- #!-x86 (self :ref-trans %function-self
- :set-trans (setf %function-self))
+;;; a simple function (as opposed to hairier things like closures
+;;; which are also subtypes of Common Lisp's FUNCTION type)
+(define-primitive-object (simple-fun :type function
+ :lowtag fun-pointer-lowtag
+ :widetag simple-fun-header-widetag)
+ #!-x86 (self :ref-trans %simple-fun-self
+ :set-trans (setf %simple-fun-self))