src/class-make-impl.lisp (check-method-argument-lists): Fix docstring.

diff --git a/src/class-make-impl.lisp b/src/class-make-impl.lisp
index 5a897d409a05e2ca3b8765b138bed95e7db440c9..da6cd2ce384281cbd9016de533e9bf9e7c80028a 100644 (file)
--- 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.
 
   "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
   (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