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))