/[cmucl]/src/compiler/checkgen.lisp
ViewVC logotype

Diff of /src/compiler/checkgen.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by dtc, Sun Mar 1 21:55:39 1998 UTC revision 1.27 by dtc, Tue May 2 04:44:27 2000 UTC
# Line 80  Line 80 
80              (+ 1              (+ 1
81                 (if (numeric-type-low type) 1 0)                 (if (numeric-type-low type) 1 0)
82                 (if (numeric-type-high type) 1 0))))                 (if (numeric-type-high type) 1 0))))
83            (cons-type
84             (+ (type-test-cost (specifier-type 'cons))
85                (function-cost 'car)
86                (type-test-cost (cons-type-car-type type))
87                (function-cost 'cdr)
88                (type-test-cost (cons-type-cdr-type type))))
89          (t          (t
90           (function-cost 'typep)))))           (function-cost 'typep)))))
91    

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5