Get rid of vm-support-routines indirection.

[sbcl.git] / src / compiler / generic / late-nlx.lisp

diff --git a/src/compiler/generic/late-nlx.lisp b/src/compiler/generic/late-nlx.lisp
index d2d5855..e8a2727 100644 (file)
--- a/src/compiler/generic/late-nlx.lisp
+++ b/src/compiler/generic/late-nlx.lisp
@@ -13,7 +13,7 @@
 \f
 ;;; 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 ()
+(defun make-dynamic-state-tns ()
   (make-n-tns #.(let ((nsave
                        (sb!c::vop-info-num-results
                         (template-or-lose 'save-dynamic-state)))