X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fnlx.lisp;h=18d65528364d5de81b906df1ea910aa5979cc6a9;hb=236acc699ec1b5996e04f3f30d2859803e54e5ea;hp=8aa7a0c2dda184321675cf793c9cce1e0c37d7fa;hpb=c823a0c4ad5be108455745c7b451228182d5d164;p=sbcl.git

diff --git a/src/compiler/mips/nlx.lisp b/src/compiler/mips/nlx.lisp
index 8aa7a0c..18d6552 100644
--- a/src/compiler/mips/nlx.lisp
+++ b/src/compiler/mips/nlx.lisp
@@ -1,7 +1,7 @@
 (in-package "SB!VM")
 
 ;;; Make an environment-live stack TN for saving the SP for NLX entry.
-(!def-vm-support-routine make-nlx-sp-tn (env)
+(defun make-nlx-sp-tn (env)
   (physenv-live-tn
    (make-representation-tn *fixnum-primitive-type* immediate-arg-scn)
    env))
@@ -9,7 +9,7 @@
 ;;; Make a TN for the argument count passing location for a
 ;;; non-local entry.
 ;;;
-(!def-vm-support-routine make-nlx-entry-arg-start-location ()
+(defun make-nlx-entry-arg-start-location ()
   (make-wired-tn *fixnum-primitive-type* immediate-arg-scn ocfp-offset))
 
 ;;; Save and restore dynamic environment.