X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Finsts.lisp;h=24b3fc862164c93ce22eb893c994c3a10b122212;hb=f7c047cafd84b556398014c4932c90dba55a5c0d;hp=fac58b474d4f665d6ba64cb75ba08842ca37773b;hpb=dd65639fb561a1cac59f5b0dc03482b8adb5441e;p=sbcl.git

diff --git a/src/compiler/hppa/insts.lisp b/src/compiler/hppa/insts.lisp
index fac58b4..24b3fc8 100644
--- 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)