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