Changeset 306

Timestamp:

Jan 17, 2004, 7:32:10 PM (21 years ago)

Author:

Gary Byers

Message:

*BASE-CHAR-CLASS* may or may not be the same as *CHARACTER-CLASS*.
(integer 1 1) denotes a BIT.

File:

• trunk/ccl/level-0/l0-array.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-array.lisp

@@ -511 +511 @@
     (class-ctype
      (if (or (eq (class-ctype-class ctype) *character-class*)
+             (eq (class-ctype-class ctype) *base-char-class*)
              (eq (class-ctype-class ctype) *standard-char-class*))
        ppc32::subtag-simple-base-string
@@ -520 +521 @@
                (high (numeric-ctype-high ctype)))
           (cond ((or (null low) (null high)) ppc32::subtag-simple-vector)
-                ((and (= low 0) (<= high 1) ppc32::subtag-bit-vector))
+                ((and (>= low 0) (<= high 1) ppc32::subtag-bit-vector))
                 ((and (>= low 0) (<= high 255)) ppc32::subtag-u8-vector)
                 ((and (>= low 0) (<= high 65535)) ppc32::subtag-u16-vector)