Changeset 303

Timestamp:

Jan 15, 2004, 12:33:32 AM (21 years ago)

Author:

Gary Byers

Message:

(INTEGER 0 0) is a subtype of (INTEGER 0 1), aka BIT.

File:

• trunk/ccl/level-0/l0-array.lisp (modified) (1 diff)

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

@@ -520 +520 @@
                (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)