diff --git a/utils/clos.lisp b/utils/clos.lisp
index dd3f58cc9630daf743c61ae2f0258d73ee65b17e..6fb70d5f3cdeb833ce4fa00245e58653ca930aa3 100644
--- a/utils/clos.lisp
+++ b/utils/clos.lisp
@@ -224,7 +224,6 @@
   (values `(setf ,accessor-name) t))
 
 (defun make-setf*-function-name (accessor-name)
-  (declare (values setf-function-name defsetf-done-p))
   (let ((writer (get accessor-name 'setf-function-name))
 	(old-p nil))
     (when writer