anchor.diff:    (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)
  
positive.code:               Exceptional situations:~@
                ~a~@
                ~a"
                *item-sequence* *key* *test-test-not* *bounding-indexes* *from-end*
  	      *satisfy-the-test*
  	      *error-not-proper-sequence*
  	      *error-bounding-indexes*))
              
negative.code: 	(fmt "Lambda list: (ITEM SEQUENCE &key KEY TEST TEST-NOT START END FROM-END)~@
                ~@
                Description:~@
                ~a~@
                ~@
                Arguments:~@
                ~a~%~a~%~a~%~a~%~a~@
  