From 4c95c00688ecba28fd0e940e8f3c85bb13bfeee5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Fri, 5 May 2017 16:38:35 +0200 Subject: [PATCH] cleanup: remove spurious declaration --- utils/clos.lisp | 2 -- 1 file changed, 2 deletions(-) diff --git a/utils/clos.lisp b/utils/clos.lisp index f7fda0b5..a9f467d4 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 -- GitLab