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

Diff of /src/compiler/ir1opt.lisp

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

revision 1.24 by ram, Wed Feb 20 14:57:49 1991 UTC revision 1.25 by ram, Sun Mar 10 18:27:30 1991 UTC
# Line 1073  Line 1073 
1073                     (lambda-home (lambda-var-home var)))                     (lambda-home (lambda-var-home var)))
1074                 (member (continuation-type-check arg) '(t nil))                 (member (continuation-type-check arg) '(t nil))
1075                 (member (continuation-type-check cont) '(t nil)))                 (member (continuation-type-check cont) '(t nil)))
1076          (assert (member (continuation-kind arg)
1077                          '(:block-start :deleted-block-start :inside-block)))
1078        (assert-continuation-type arg (continuation-asserted-type cont))        (assert-continuation-type arg (continuation-asserted-type cont))
1079        (change-ref-leaf ref (find-constant nil))        (change-ref-leaf ref (find-constant nil))
1080        (substitute-continuation arg cont)        (substitute-continuation arg cont)

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5