Changeset 6333


Ignore:
Timestamp:
Apr 22, 2007, 10:52:15 AM (15 years ago)
Author:
gb
Message:

aref1/aset1: fix array dims check: want a list of length 1.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/X86/x862.lisp

    r6323 r6333  
    67746774         (keyword (if (and atype
    67756775                           (let* ((dims (array-ctype-dimensions atype)))
    6776                              (or (atom dims)
    6777                                  (= (length dims) 1)))
     6776                             (and (not (atom dims))
     6777                                  (= (length dims) 1)))
    67786778                           (not (array-ctype-complexp atype)))
    67796779                    (funcall
     
    67916791         (keyword (if (and atype
    67926792                           (let* ((dims (array-ctype-dimensions atype)))
    6793                              (or (atom dims)
     6793                             (and (not (atom dims))
    67946794                                 (= (length dims) 1)))
    67956795                           (not (array-ctype-complexp atype)))
     
    77787778                       (let* ((dims (array-ctype-dimensions atype)))
    77797779                         (and (typep dims 'list)
    7780                              
    77817780                              (= 2 (length dims))))
    77827781                       (not (array-ctype-complexp atype))
Note: See TracChangeset for help on using the changeset viewer.