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 c9d19ea..8909fc9 100644 (file)
--- a/src/proto-method.lisp
+++ b/src/proto-method.lisp
@@ -42,7 +42,7 @@
    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'."))
@@ -389,8 +389,8 @@
             (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))))))