X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fppc%2Finsts.lisp;h=cdb9f5a50364da3d2504bf8408c2718ce03a01c3;hb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;hp=8229af3712f910f506e72670547a2fd42f96a34a;hpb=cd5a858174d892f876699373dc3ea389cf2c4d40;p=sbcl.git

diff --git a/src/compiler/ppc/insts.lisp b/src/compiler/ppc/insts.lisp
index 8229af3..cdb9f5a 100644
--- a/src/compiler/ppc/insts.lisp
+++ b/src/compiler/ppc/insts.lisp
@@ -42,7 +42,7 @@
 
 (defvar *disassem-use-lisp-reg-names* t)
 
-(!def-vm-support-routine location-number (loc)
+(defun location-number (loc)
   (etypecase loc
     (null)
     (number)
@@ -1818,7 +1818,7 @@
     `(inst nor. ,ra ,rs ,rs))
 
 
-  (!def-vm-support-routine emit-nop (segment)
+  (defun emit-nop (segment)
                            (emit-word segment #x60000000))
 
   (define-instruction-macro extlwi (ra rs n b)