Ignore:
Timestamp:
Apr 8, 2008, 5:06:43 AM (11 years ago)
Author:
gb
Message:

CTYPE-SUBTYPE: try harder in some cases.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-array.lisp

    r6991 r9060  
    789789            (t target::subtag-simple-vector)))
    790790         (t target::subtag-simple-vector))))
    791     (t target::subtag-simple-vector)))
     791    (named-ctype ; *, T, etc.
     792     target::subtag-simple-vector)
     793    (t
     794     (harder-ctype-subtype ctype))))
    792795
    793796(defun %set-simple-array-p (array)
Note: See TracChangeset for help on using the changeset viewer.