diff --git a/utils/clos.lisp b/utils/clos.lisp index f7fda0b541a4e58e6a57bb0a6a5f78fc7d504398..a9f467d4b5e13f0cf96ac8093d570d09a5836b21 100644 --- a/utils/clos.lisp +++ b/utils/clos.lisp @@ -276,8 +276,6 @@ ;; For example, (DEFMETHOD* (SETF CURSOR-POSITION) (NX NY (CURSOR T)) ...) ;; Then (SETF (CURSOR-POSITION cursor) (VALUES nx ny)) (defmacro defmethod* (name &body quals-lambda-list-and-body) - (declare (arglist name [qualifiers]* lambda-list &body body)) - #+Genera (declare (zwei:indentation . zwei:indent-for-clos-defmethod)) (assert (and (listp name) (eq (first name) 'setf) (null (cddr name))) () "Syntax error in ~S: This only works on ~S methods" 'defmethod* 'setf) (let (qualifiers real-arglist body accessor-arg