/[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.22 by ram, Thu Feb 14 20:44:33 1991 UTC revision 1.23 by ram, Wed Feb 20 14:41:16 1991 UTC
# Line 1325  Line 1325 
1325                  (change-ref-leaf ref fun)                  (change-ref-leaf ref fun)
1326                  (assert (eq (basic-combination-kind node) :full))                  (assert (eq (basic-combination-kind node) :full))
1327                  (local-call-analyze *current-component*)                  (local-call-analyze *current-component*)
1328                  (assert (eq (functional-kind (ref-leaf ref)) :mv-let)))))))))                  (assert (eq (basic-combination-kind node) :local)))))))))
1329    
1330    (undefined-value))    (undefined-value))
1331    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5