X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..8922d11064c215cdd8b6288985cc6d2e573826c2:/src/class-layout-proto.lisp

diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp
index bf1480b..a4ca263 100644
--- a/src/class-layout-proto.lisp
+++ b/src/class-layout-proto.lisp
@@ -169,17 +169,17 @@
    CHAIN-HEAD.  The CHAIN-TAIL is the most specific superclass of SUBCLASS on
    this chain.  The ENTRIES are a list of `method-entry' objects."))
 
-(export 'compte-vtmsgs)
+(export 'compute-vtmsgs)
 (defgeneric compute-vtmsgs (class subclass chain-head chain-tail)
   (:documentation
-   "Return a VTMSGS object containing method entries for CLASS.
+   "Return a `vtmsgs' object containing method entries for CLASS.
 
    The CHAIN-HEAD describes which chain the method entries should be
    constructed for.
 
-   The default method simply calls MAKE-METHOD-ENTRY for each of the methods
-   and wraps a VTMSGS object around them.  This ought to be enough for almost
-   all purposes."))
+   The default method simply calls `make-method-entry' for each of the
+   methods and wraps a `vtmsgs' object around them.  This ought to be enough
+   for almost all purposes."))
 
 ;;; class-pointer
 
@@ -198,7 +198,7 @@
 
    This is somewhat complicated because there are two degrees of freedom.  An
    instance of `class-pointer' is a pointer from a vtable to an `ichain' of
-   the the class's metaclass instance.  In particular, `class-pointer'
+   the the class's metaclass instance.  In particular, a `class-pointer'
    instance represents a pointer in a vtable constructed for CLASS and
    attached to the chain headed by CHAIN-HEAD; it points to an instance of
    METACLASS, and specifically to the `ichain' substructure corresponding to