(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