X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/73eceea64f35d47eeecb808cb7bfecb6bac4299b..7702b7bc88a97c15f955f62e8afbc40521ceec7b:/src/class-make-impl.lisp

diff --git a/src/class-make-impl.lisp b/src/class-make-impl.lisp
index 5a897d4..da6cd2c 100644
--- a/src/class-make-impl.lisp
+++ b/src/class-make-impl.lisp
@@ -317,9 +317,9 @@ (defun check-method-argument-lists (method-type message-type)
   "Signal an error unless METHOD-TYPE and MESSAGE-TYPE have matching argument
    lists.
 
-  This checks that (a) the two types have matching lists of mandatory
-  arguments, and (b) that either both or neither types accept keyword
-  arguments."
+   This checks (a) that the two types have matching lists of mandatory
+   arguments, and (b) that either both or neither types accept keyword
+   arguments."
   (let ((message-keywords-p (typep message-type 'c-keyword-function-type))
 	(method-keywords-p (typep method-type 'c-keyword-function-type)))
     (cond (message-keywords-p