(setf (tn-kind tn) :environment)
(setf (tn-environment tn) env)
(push tn (ir2-environment-live-tns (environment-info env)))
tn)
(defun environment-debug-live-tn (tn env)
(declare (type tn tn) (type environment env))
(setf (tn-kind tn) :environment)
(setf (tn-environment tn) env)
(push tn (ir2-environment-live-tns (environment-info env)))
tn)
(defun environment-debug-live-tn (tn env)
(declare (type tn tn) (type environment env))