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