X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/dea4d05507e59ab779ed4bb209e05971d87e260c..bf090e021a5c20da452a4841cdfb8eb78e29544e:/src/impl-method.lisp?ds=inline

diff --git a/src/impl-method.lisp b/src/impl-method.lisp
index a1e2a65..b9045ce 100644
--- a/src/impl-method.lisp
+++ b/src/impl-method.lisp
@@ -177,9 +177,9 @@ (defclass delegating-direct-method (basic-direct-method)
    conventionally named `sod__ap_master', which it is expected to pass on to
    its `next_method' function if necessary.)
 
-   The function type protocol is implemented on DELEGATING-DIRECT-METHOD
+   The function type protocol is implemented on `delegating-direct-method'
    using slot reader methods.  The actual values are computed on demand in
-   methods defined on SLOT-UNBOUND."))
+   methods defined on `slot-unbound'."))
 
 (defmethod slot-unbound (class
 			 (method delegating-direct-method)
@@ -203,11 +203,12 @@ (defmethod slot-unbound (class
 		       ("next_method" (* (lisp (commentify-function-type
 						(sod-method-next-method-type
 						 method)))))
-		       . (if (varargs-message-p message)
-			     (cons (make-argument *sod-master-ap*
-						  (c-type va-list))
-				   method-args)
-			     method-args))))))
+		       .
+		       (if (varargs-message-p message)
+			   (cons (make-argument *sod-master-ap*
+						(c-type va-list))
+				 method-args)
+			   method-args))))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Effective method classes.
@@ -374,8 +375,8 @@ (defmethod compute-method-entry-functions ((method basic-effective-method))
   ;; The first thing we need to do is find all of the related objects.  This
   ;; is a bit verbose but fairly straightforward.
   ;;
-  ;; Next, we generate the effective method body -- using COMPUTE-EFFECTIVE-
-  ;; METHOD-BODY of all things.  This gives us the declarations and body for
+  ;; Next, we generate the effective method body -- using `compute-effective-
+  ;; method-body' of all things.  This gives us the declarations and body for
   ;; an effective method function, but we don't have an actual function yet.
   ;;
   ;; Now we look at the chains which are actually going to need a method