Changeset 330

Timestamp:

Jan 19, 2004, 4:27:38 PM (21 years ago)

Author:

Gary Byers

Message:

Paranoia in CTYPE-SUBTYPE: allow float aliases.

File:

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

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

@@ -532 +532 @@
        (float
         (case (numeric-ctype-format ctype)
-          (double-float ppc32::subtag-double-float-vector)
-          (short-float ppc32::subtag-single-float-vector)
+          ((double-float long-float) ppc32::subtag-double-float-vector)
+          ((single-float short-float) ppc32::subtag-single-float-vector)
           (t ppc32::subtag-simple-vector)))
        (t ppc32::subtag-simple-vector)))