X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Finsts.lisp;h=f17f4a78fd761bcd645b1176d0df8b8605786dc9;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=54c79cc99c900311067e3245ffeb9e5b2d03ee04;hpb=e0814eee6f6dea52db010b45a330100f2fe65832;p=sbcl.git

diff --git a/src/compiler/alpha/insts.lisp b/src/compiler/alpha/insts.lisp
index 54c79cc..f17f4a7 100644
--- a/src/compiler/alpha/insts.lisp
+++ b/src/compiler/alpha/insts.lisp
@@ -54,7 +54,7 @@
 	       (t (make-symbol (concatenate 'string "$" name)))))
        *register-names*))
 
-(sb!disassem:define-argument-type reg
+(sb!disassem:define-arg-type reg
   :printer (lambda (value stream dstate)
 	     (declare (stream stream) (fixnum value))
 	     (let ((regname (aref reg-symbols value)))
@@ -70,7 +70,7 @@
    (loop for n from 0 to 31 collect (make-symbol (format nil "~D" n)))
    'vector))
 
-(sb!disassem:define-argument-type fp-reg
+(sb!disassem:define-arg-type fp-reg
   :printer (lambda (value stream dstate)
 	     (declare (stream stream) (fixnum value))
 	     (let ((regname (aref float-reg-symbols value)))
@@ -81,7 +81,7 @@
 		regname
 		dstate))))
 
-(sb!disassem:define-argument-type relative-label
+(sb!disassem:define-arg-type relative-label
   :sign-extend t
   :use-label (lambda (value dstate)
 	       (declare (type (signed-byte 21) value)