0.6.8.14:

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

diff --git a/src/compiler/checkgen.lisp b/src/compiler/checkgen.lisp
index 8476000..e727624 100644 (file)
--- a/src/compiler/checkgen.lisp
+++ b/src/compiler/checkgen.lisp
@@ -67,14 +67,6 @@
            (+ 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