0.pre7.56:

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

diff --git a/src/code/class.lisp b/src/code/class.lisp
index ccfb499..3475adf 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)
@@ -1126,7 +1124,7 @@
      :inherits (sequence mutable-sequence mutable-collection
                generic-sequence collection))
     (cons
-     :codes (#.sb!vm:list-pointer-type)
+     :codes (#.sb!vm:list-pointer-lowtag)
      :translation cons
      :inherits (list sequence
                mutable-sequence mutable-collection
@@ -1188,7 +1186,7 @@
                           #.sb!vm:*target-most-positive-fixnum*)
      :inherits (integer rational real number
                generic-number)
-     :codes (#.sb!vm:even-fixnum-type #.sb!vm:odd-fixnum-type))
+     :codes (#.sb!vm:even-fixnum-lowtag #.sb!vm:odd-fixnum-lowtag))
     (bignum
      :translation (and integer (not fixnum))
      :inherits (integer rational real number