0.pre7.55:

[sbcl.git] / src / code / class.lisp

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 6951f30..7661571 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -928,7 +928,7 @@
 
      (function
       :codes (#.sb!vm:closure-header-type
-             #.sb!vm:function-header-type)
+             #.sb!vm:simple-fun-header-type)
       :state :read-only)
      (funcallable-instance
       :inherits (function)