X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=6951f304c6d4678de0c9904aa1273e17ad849b4e;hb=b6cb3d5b2e2a0d6e6c92a2f3d852051540660fef;hp=dcb4f2dd575237d326e3f79e9888e1dc045b24b5;hpb=b4dcc81361b084a1ed9e3212ae4abbb174720780;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index dcb4f2d..6951f30 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -922,14 +922,12 @@
      (system-area-pointer :codes (#.sb!vm:sap-type))
      (weak-pointer :codes (#.sb!vm:weak-pointer-type))
      (code-component :codes (#.sb!vm:code-header-type))
-     #!-gengc (lra :codes (#.sb!vm:return-pc-header-type))
+     (lra :codes (#.sb!vm:return-pc-header-type))
      (fdefn :codes (#.sb!vm:fdefn-type))
      (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