Get rid of vm-support-routines indirection.

[sbcl.git] / src / compiler / hppa / insts.lisp

diff --git a/src/compiler/hppa/insts.lisp b/src/compiler/hppa/insts.lisp
index fac58b4..24b3fc8 100644 (file)
--- a/src/compiler/hppa/insts.lisp
+++ b/src/compiler/hppa/insts.lisp
@@ -138,7 +138,7 @@
 ;  immediate or anything else.
 ; this routine will return an location-number
 ; this number must be less than *assem-max-locations*
-(!def-vm-support-routine location-number (loc)
+(defun location-number (loc)
   (etypecase loc
     (null)
     (number)