/[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.20 by ram, Tue Jul 21 18:41:26 1992 UTC revision 1.21 by ram, Sat Aug 1 17:34:14 1992 UTC
# Line 508  Line 508 
508                    (unless (policy node (= brevity 3))                    (unless (policy node (= brevity 3))
509                      (do-type-warning use))))))                      (do-type-warning use))))))
510    
511            (when (eq type-check t)            (when (and (eq type-check t)
512                         (not *byte-compiling*))
513              (if (probable-type-check-p cont)              (if (probable-type-check-p cont)
514                  (multiple-value-bind (check types)                  (multiple-value-bind (check types)
515                                       (continuation-check-types cont)                                       (continuation-check-types cont)

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5