0.6.8.6: applied MNA megapatch (will be edited shortly)

[sbcl.git] / src / compiler / checkgen.lisp

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index e727624..8476000 100644 (file)
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -67,6 +67,14 @@
            (+ 1
               (if (numeric-type-low type) 1 0)
               (if (numeric-type-high type) 1 0))))
+        ;; MNA: cons compound-type patch
+        ;; FIXIT: all commented out
+;      (cons-type
+;           (+ (type-test-cost (specifier-type 'cons))
+;              (function-cost 'car)
+;              (type-test-cost (cons-type-car-type type))
+;              (function-cost 'cdr)
+;              (type-test-cost (cons-type-cdr-type type))))
        (t
         (function-cost 'typep)))))
 \f