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

Diff of /src/compiler/tn.lisp

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

revision 1.5.1.1 by ram, Mon Jun 11 18:29:02 1990 UTC revision 1.5.1.2 by ram, Fri Jun 15 15:41:23 1990 UTC
# Line 482  Line 482 
482    (declare (type tn tn))    (declare (type tn tn))
483    (let ((ref (or (tn-reads tn) (tn-writes tn))))    (let ((ref (or (tn-reads tn) (tn-writes tn))))
484      (assert ref)      (assert ref)
485      (lambda-environment      (block-environment (ir2-block-block (vop-block (tn-ref-vop ref))))))
      (block-lambda  
       (ir2-block-block (vop-block (tn-ref-vop ref)))))))  

Legend:
Removed from v.1.5.1.1  
changed lines
  Added in v.1.5.1.2

  ViewVC Help
Powered by ViewVC 1.1.5