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

diff --git a/src/proto-method.lisp b/src/proto-method.lisp
index c9d19ea..8909fc9 100644
--- 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.
 
-   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 @@ (defun invoke-delegation-chain (codegen target basic-tail chain kernel)
 	     (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))))))