/[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.7 by ram, Tue May 22 13:10:20 1990 UTC revision 1.8 by ram, Tue May 22 13:14:58 1990 UTC
# Line 109  Line 109 
109                 (when (and (csubtypep type stype)                 (when (and (csubtypep type stype)
110                            (not (union-type-p stype))) ;Not #!% COMMON type.                            (not (union-type-p stype))) ;Not #!% COMMON type.
111                   (let ((stype-cost (type-test-cost stype)))                   (let ((stype-cost (type-test-cost stype)))
112                     (when (< stype-cost min-cost)                     (when (or (< stype-cost min-cost)
113                                 (type= stype type))
114                       (setq found-super t)                       (setq found-super t)
115                       (setq min-type stype  min-cost stype-cost))))))                       (setq min-type stype  min-cost stype-cost))))))
116             (if found-super             (if found-super

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5