(export 'compte-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
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