diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index 438887352493e36147b29082acf625c88e1b57da..47ea0157b6f3e7e9bf27acb4a31749e1e25d7bdc 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -829,12 +829,12 @@
 ;;;    Start and finish the the printing of a defprinter function.
 ;;;
 (defun start-defprinter (name stream indent object)
-  (declare (symbol name) (stream stream) (index indent))
+  (declare (symbol name) (stream stream) (type index indent))
   (declare (ignore indent))
   (format stream "#<~S ~X" name (system:%primitive make-fixnum object)))
 ;;;
 (defun finish-defprinter (name stream indent)
-  (declare (symbol name) (stream stream) (index indent))
+  (declare (symbol name) (stream stream) (type index indent))
   (declare (ignore name))
   (if *defprint-pretty*
       (format stream ">~%~VT" indent)