Changeset 8527


Ignore:
Timestamp:
Feb 21, 2008, 2:48:19 AM (12 years ago)
Author:
gz
Message:

one more case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-typesys.lisp

    r8524 r8527  
    36553655                               ((eql i rank) t)
    36563656                            (unless (or (eq (car want) '*)
    3657                                         (eql (car want) (the fixnum got)))
     3657                                        (eql (%car want) (the fixnum got)))
    36583658                              (return nil)))))
    36593659                   (and (null (cdr ctype-dimensions))
    3660                         (eql (car ctype-dimensions) (array-total-size object))))))
     3660                        (or (eq (%car ctype-dimensions) '*)
     3661                            (eql (%car ctype-dimensions) (array-total-size object)))))))
    36613662         (or (eq (array-ctype-element-type type) *wild-type*)
    36623663             (eql (array-ctype-typecode type)
Note: See TracChangeset for help on using the changeset viewer.