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: 	the element satisfies the test.  Otherwise the element does not~@
  	satisfy the test."))
  
  (defparameter *from-end*
    (fmt "FROM-END is a generalized boolean.  The default-value for FROM-END is false."))
  
  
negative.code:               Exceptional situations:~@
                ~a~@
                ~a"
  	     *find-description*
  	     *item-sequence* *key* *test-test-not* *bounding-indexes* *from-end*
  	     *satisfy-a-two-argument-test*
  	     *error-not-proper-sequence*
  	     *error-bounding-indexes*))
  
  (fundoc 'find-if
  	(fmt "Lambda list: (PREDICATE SEQUENCE &key KEY START END FROM-END)~@
                ~@
                Description:~@
                ~a~@
                ~@
                Arguments:~@
                ~a~%~a~%~a~%~a~@
                ~@
                Satisfying the test:~@
                ~a~@
                ~@
                Exceptional situations:~@
                ~a~@
                ~a"
  	     *find-description*
  	     *predicate-sequence* *key* *bounding-indexes* *from-end*
  	     *satisfy-a-one-argument-positive-test*
  	     *error-not-proper-sequence*
  	     *error-bounding-indexes*))
  
  (fundoc 'find-if-not
  	(fmt "Lambda list: (PREDICATE SEQUENCE &key KEY START END FROM-END)~@
                ~@
                Description:~@
                ~a~@
                ~@
                Arguments:~@
                ~a~%~a~%~a~%~a~@
                ~@
                Satisfying the test:~@
                ~a~@
                ~@
                Exceptional situations:~@
                ~a~@
                ~a"
  	     *find-description*
  	     *predicate-sequence* *key* *bounding-indexes* *from-end*
  	     *satisfy-a-one-argument-negative-test*
  	     *error-not-proper-sequence*
  	     *error-bounding-indexes*))
  
  (defparameter *count-description*
    (fmt "Counts the number of elements in the interval of SEQUENCE designated by~@
  	START and END that satisfy the test, and returns the number of such elements.~@
  	~@
  	If FROM-END is false, then the elements of the designated interval will be~@
  	tested from the beginning to the end of the sequence.  If FROM-END is true,~@
  	then elements of the designated interval will be tested from the end to the~@
  	beginning of the sequence.  This difference is important only when~@
  	KEY, TEST, or TEST-NOT has side effects."))
  
  (fundoc 'count
  	(fmt "Lambda list: (ITEM SEQUENCE &key KEY TEST TEST-NOT START END FROM-END)~@
                ~@
                Description:~@
                ~a~@
                ~@
  	      Arguments:~@
  	      ~a~%~a~%~a~%~a~%~a~@
  