src/class-output.lisp: Fix docstring grammar.

diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp
index bf1480bae4da70f09112a28548e8c9ea4b16a837..ef75710aa163848ef16c60492c1110975eec0caa 100644 (file)
--- a/src/class-layout-proto.lisp
+++ b/src/class-layout-proto.lisp
@@ -198,7 +198,7 @@ (defclass 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