Work in progress, recovered from old crybaby.

[sod] / src / impl-method.lisp

diff --git a/src/impl-method.lisp b/src/impl-method.lisp
index a1e2a6518fb6941f504775964d5c7b1904c368a3..b9045ce2b3cead66ddd035128161e0cb12a88aba 100644 (file)
--- 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.)
 
    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
    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)
 
 (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)))))
                       ("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.
 
 ;;;--------------------------------------------------------------------------
 ;;; 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.
   ;;
   ;; 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
   ;; 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