Changeset 6284


Ignore:
Timestamp:
Apr 16, 2007, 8:08:02 PM (15 years ago)
Author:
gb
Message:

Don't try to access ARRAY-CTYPE-ELEMENT-TYPE of things that aren't
ARRAY-CTYPEs in ACODE-FORM-TYPE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/nx0.lisp

    r6174 r6284  
    448448                      (let* ((atype (acode-form-type (cadr form) t))
    449449                             (actype (if atype (specifier-type atype))))
    450                         (if actype
     450                        (if (typep actype 'array-ctype)
    451451                          (type-specifier (array-ctype-specialized-element-type
    452452                                           actype))))
Note: See TracChangeset for help on using the changeset viewer.