Changeset 589

Timestamp:

Feb 28, 2004, 3:59:36 PM (21 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-typesys.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-typesys.lisp

@@ -1375 +1375 @@
        (when (or (typep m 'cons)
                  (typep m 'array))
-         nil)))
+         (return nil))))
     (union-ctype
      (every #'cacheable-ctype-p (union-ctype-types ctype)))
@@ -1394 +1394 @@
                 (or (null result)
                     (cacheable-ctype-p result))))))
+    (negation-ctype
+     (cacheable-ctype-p (negation-ctype-type ctype)))
+    (cons-ctype
+     (and (cacheable-ctype-p (cons-ctype-car-ctype ctype))
+          (cacheable-ctype-p (cons-ctype-cdr-ctype ctype))))
+    ;;; Anything else ?  Simple things (numbers, classes) can't lose.
     (t t)))