1.0.23.21: Stack allocated conses for MIPS.
[sbcl.git] / src / compiler / generic / late-nlx.lisp
1 ;;;; some help for the definition of generic non-local exit
2
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
11
12 (in-package "SB!VM")
13 \f
14 ;;; Return a list of TNs that can be used to snapshot the dynamic
15 ;;; state for use with the SAVE- and RESTORE-DYNAMIC-ENVIRONMENT VOPs.
16 (!def-vm-support-routine make-dynamic-state-tns ()
17   (make-n-tns #.(let ((nsave
18                        (sb!c::vop-info-num-results
19                         (template-or-lose 'save-dynamic-state)))
20                       (nrestore
21                        (sb!c::vop-info-num-args
22                         (template-or-lose 'restore-dynamic-state))))
23                   (aver (= nsave nrestore))
24                   nsave)
25               *backend-t-primitive-type*))
26