X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fnlx.lisp;h=0f76a3358d022da8eca8fe75bbc436e5f5d4a1cd;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=8a144d30728398c8a4104c4bd75934e1df70f701;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/sparc/nlx.lisp b/src/compiler/sparc/nlx.lisp
index 8a144d3..0f76a33 100644
--- a/src/compiler/sparc/nlx.lisp
+++ b/src/compiler/sparc/nlx.lisp
@@ -13,14 +13,14 @@
 (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))
 
 ;;; 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.