anchor.diff:  	(fmt "Lambda list: (ITEM SEQUENCE &key KEY TEST TEST-NOT START END FROM-END)~@
                 ~@
                 Description:~@
  -              FIND searches the interval of SEQUENCE designated by START and END~@
  -              for an element of the sequence that satisfies the test.~@
  -              If such an element is found, then it is returned.~@
  -              Otherwise NIL is returned.~@
  -              ~@
  -              If FROM-END is false, then the first element that satisfies the test is~@
  -              returned.  Otherwise the last element that satisfies the test is returned.~@
  -              There is no requirement, however that the KEY and the TEST or TEST-NOT~@
  -              functions will be applied in any particular order.  In particular, even if~@
  -              FROM-END is true, SEQUENCE may be search from the beginning to the end~@
  -              and the last element that satisfies the test returned.~@
  +              ~a~@
                 ~@
                 Arguments:~@
                 ~a~%~a~%~a~%~a~%~a~@
  
positive.code: 
  (defparameter *item-sequence*
    (fmt "ITEM is any object, and SEQUENCE is a proper sequence."))
  
  (defparameter *key*
    (fmt "KEY is a designator for a function of one argument which is~@
  
negative.code:   (fmt "An error might be signaled if START and END are not valid bounding~@
  	index designators for SEQUENCE, which means that 0 <= START <= L, and~@
  	either END is NIL or 0 <= END <= L where L is the length of SEQUENCE."))
  
  (defparameter *find-description*
    (fmt "Searches the interval of SEQUENCE designated by START and END~@
          for an element of the sequence that satisfies the test.~@
  	If such an element is found, then it is returned.~@
  	Otherwise NIL is returned.~@
  	~@
  	If FROM-END is false, then the first element that satisfies the test is~@
  	returned.  Otherwise the last element that satisfies the test is returned.~@
  	There is no requirement, however that the KEY and the TEST or TEST-NOT~@
  	functions will be applied in any particular order.  In particular, even if~@
  	FROM-END is true, SEQUENCE may be search from the beginning to the end~@
  	and the last element that satisfies the test returned."))
  
  ;;; Create documentation for a function.
  (defun fundoc (name string)
  