Changeset 589


Ignore:
Timestamp:
Feb 28, 2004, 11:59:36 PM (17 years ago)
Author:
gb
Message:

Fix typo, add more cases in CACHEABLE-CTYPE-P.

File:
1 edited

Legend:

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

    r586 r589  
    13751375       (when (or (typep m 'cons)
    13761376                 (typep m 'array))
    1377          nil)))
     1377         (return nil))))
    13781378    (union-ctype
    13791379     (every #'cacheable-ctype-p (union-ctype-types ctype)))
     
    13941394                (or (null result)
    13951395                    (cacheable-ctype-p result))))))
     1396    (negation-ctype
     1397     (cacheable-ctype-p (negation-ctype-type ctype)))
     1398    (cons-ctype
     1399     (and (cacheable-ctype-p (cons-ctype-car-ctype ctype))
     1400          (cacheable-ctype-p (cons-ctype-cdr-ctype ctype))))
     1401    ;;; Anything else ?  Simple things (numbers, classes) can't lose.
    13961402    (t t)))
    13971403               
Note: See TracChangeset for help on using the changeset viewer.