0.pre7.50:

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

diff --git a/src/code/class.lisp b/src/code/class.lisp
index ccfb499..6951f30 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -927,9 +927,7 @@
      (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
+      :codes (#.sb!vm:closure-header-type
              #.sb!vm:function-header-type)
       :state :read-only)
      (funcallable-instance