Changeset 5778

Timestamp:

Jan 23, 2007, 6:02:24 AM (18 years ago)

Author:

Gary Byers

Message:

x8664 class-of: typo in non-simple array case, needed new string definition.

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (3 diffs)

trunk/ccl/level-1/l1-clos-boot.lisp

@@ -1856 +1856 @@
               (find-class 'word-vector)
               (find-class 'unsigned-word-vector)
-              (find-class 'base-string)
+              (find-class 'base-string) ;old
               (find-class 'byte-vector)
               (find-class 'unsigned-byte-vector)
@@ -1874 +1874 @@
               *t-class*
               *t-class*
-              *t-class*
+              (find-class 'base-string)
               (find-class 'long-vector)
               (find-class 'unsigned-long-vector)
@@ -2168 +2168 @@
                         (cond ((= class x8664::fulltag-immheader-0)
                                (%svref *immheader-0-classes* idx))
-                              ((= class x8664::fulltag-immheader-0)
+                              ((= class x8664::fulltag-immheader-1)
                                (%svref *immheader-1-classes* idx))
                               ((= class x8664::fulltag-immheader-2)