Changeset 9060 for trunk/source/level-0/l0-array.lisp

Timestamp:

Apr 8, 2008, 5:06:43 AM (12 years ago)

Author:

gb

Message:

CTYPE-SUBTYPE: try harder in some cases.

File:

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

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

@@ -789 +789 @@
             (t target::subtag-simple-vector)))
          (t target::subtag-simple-vector))))
-    (t target::subtag-simple-vector)))
+    (named-ctype ; *, T, etc.
+     target::subtag-simple-vector)
+    (t
+     (harder-ctype-subtype ctype))))
 
 (defun %set-simple-array-p (array)