Work in progress, recovered from old crybaby.

[sod] / src / proto-method.lisp

diff --git a/src/proto-method.lisp b/src/proto-method.lisp
index c9d19ea8263995d8dd90046c7d29c8e0d0666025..8909fc9c8e24e7b2a88c6597e3e31e5b4a686bf0 100644 (file)
--- a/src/proto-method.lisp
+++ b/src/proto-method.lisp
@@ -42,7 +42,7 @@ (defclass effective-method ()
    This is not a useful class by itself.  Message classes are expected to
    define their own effective-method classes.
 
    This is not a useful class by itself.  Message classes are expected to
    define their own effective-method classes.
 

-   An effective method classce must accept a `:direct-methods' initarg, which
+   An effective method class must accept a `:direct-methods' initarg, which

    will be a list of applicable methods sorted in most-to-least specific
    order.  (Either that or you have to add an overriding method to
    `compute-sod-effective-method'."))
    will be a list of applicable methods sorted in most-to-least specific
    order.  (Either that or you have to add an overriding method to
    `compute-sod-effective-method'."))


@@ -389,8 +389,8 @@ (defun invoke-delegation-chain (codegen target basic-tail chain kernel)
             (invoke (chain target)
               (if (null chain)
                   (funcall kernel target)
             (invoke (chain target)
               (if (null chain)
                   (funcall kernel target)

-                  (let* ((trampoline (next-trampoline (car chain)
-                                                      (cdr chain))))
+                  (let ((trampoline (next-trampoline (car chain)
+                                                     (cdr chain))))

                     (invoke-method codegen target
                                    (cons trampoline argument-tail)
                                    (car chain))))))
                     (invoke-method codegen target
                                    (cons trampoline argument-tail)
                                    (car chain))))))