diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index ec053049c23281767699ed3422a162807edc46f8..940b4870c791d49577c45dde9c3756664e5824f6 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -2082,7 +2082,7 @@
 ;;; arguments.
 ;;;
 (defun do-macrolet-stuff (definitions fun)
-  (declare (list definitions) (function fun))
+  (declare (list definitions) (type function fun))
   (let ((whole (gensym))
 	(environment (gensym)))
     (collect ((new-fenv))