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

Diff of /src/compiler/life.lisp

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

revision 1.8 by ram, Mon Apr 23 12:21:19 1990 UTC revision 1.9 by ram, Mon Apr 23 21:33:36 1990 UTC
# Line 644  Line 644 
644                  (do-live-tns (tn ss block)                  (do-live-tns (tn ss block)
645                    (unless (eq (tn-kind tn) :component)                    (unless (eq (tn-kind tn) :component)
646                      (force-tn-to-stack tn)                      (force-tn-to-stack tn)
647                      (convert-to-environment-tn tn)))))))                      (unless (eq (tn-kind tn) :environment)
648                          (convert-to-environment-tn tn))))))))
649    
650          (do ((ref (vop-refs vop) (tn-ref-next-ref ref)))          (do ((ref (vop-refs vop) (tn-ref-next-ref ref)))
651              ((null ref))              ((null ref))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5