/[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.19 by ram, Wed Jan 2 19:17:07 1991 UTC revision 1.20 by ram, Sun Jan 13 13:48:12 1991 UTC
# Line 1276  Line 1276 
1276          (setf (functional-kind fun) :let)          (setf (functional-kind fun) :let)
1277          (flush-dest (first (basic-combination-args dest)))          (flush-dest (first (basic-combination-args dest)))
1278          (unlink-node dest)          (unlink-node dest)
         (propagate-to-args node fun)  
1279          (when vals          (when vals
1280            (reoptimize-continuation (first vals))))            (reoptimize-continuation (first vals)))
1281            (propagate-to-args node fun))
1282        t)))        t)))
1283    
1284    

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

  ViewVC Help
Powered by ViewVC 1.1.5