0.pre7.55:

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

diff --git a/src/code/class.lisp b/src/code/class.lisp
index ccfb499..7661571 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -927,10 +927,8 @@
      (random-class) ; used for unknown type codes
 
      (function
-      :codes (#.sb!vm:byte-code-closure-type
-             #.sb!vm:byte-code-function-type
-             #.sb!vm:closure-header-type
-             #.sb!vm:function-header-type)
+      :codes (#.sb!vm:closure-header-type
+             #.sb!vm:simple-fun-header-type)
       :state :read-only)
      (funcallable-instance
       :inherits (function)