Re: documentation slot option

[David A. Moon <Moon@STONY-BROOK.SCRC.Symbolics.COM>]

    Date: Wed, 4 May 88 19:21 PDT
    From: Gregor.pa@Xerox.COM

    I suggest we be responsive to criticism.

Sure, let's put it in.

There's a bug in your example:

    (defclass foo ()
	 ((x :reader foo-x
	     :reader bar-x
	     :writer foo-x
	     :documentation "the x slot stores the x position")))

    would be equivalent to:

    (defmethod (setf foo-x) (new-value (foo foo))
      "the x slot stores the x position"
      (setf (slot-value foo 'x) new-value))

The :writer slot option does not stick on setf, it uses the exact name
supplied (88-002 p.2-25), so the slot option should be :writer (foo-x).