-;;; Return a list of TNs that can be used to snapshot the dynamic
-;;; state for use with the SAVE- and RESTORE-DYNAMIC-ENVIRONMENT VOPs.
-(!def-vm-support-routine make-dynamic-state-tns ()
- (list (make-normal-tn *backend-t-primitive-type*)
- (make-normal-tn *backend-t-primitive-type*)
- (make-normal-tn *backend-t-primitive-type*)
- (make-normal-tn *backend-t-primitive-type*)))
-