anchor.diff:  	       (add-link (format nil "~a.~a" kind thing)
   			 (format nil "description of ~a ~a" kind thing))))))))
       
  -(defun symbol-may-have-arguments-p (symbol)
  +(defmethod thing-may-have-arguments-p ((symbol symbol))
     (and (fboundp symbol)
          (or 
   	(typep (symbol-function symbol) 'function)
   	(macro-function symbol)
   	(typep (symbol-function symbol) 'standard-generic-function))))
  +
  +(defmethod thing-may-have-arguments-p ((list list))
  +  (thing-names-setf-function-p list))
   
   #|
   If there is a suppliedp variable for an optional or keyword arg, it should
  
positive.code:   (loop for (predicate kind nil) in *symbol-identities* 
         when (funcall predicate symbol) collect kind))
  
  (defun symbol-names-class-p (symbol)
    (let ((class (find-class symbol nil))) 
      (and class 
  	 (typep class 'standard-class)
  	 (not (conditionp class)))))
  
  ;; FIXME -- this (most likely) won't work on Lisps that don't use CLOS
  ;; for conditions
  
negative.code: 		 :format *current-format*
  		 :properties '(("html" . nil)
  			       (:omit-final-paragraph . t)
  			       (:omit-initial-paragraph . t))
  		 :document-class 'included-document))
        (t
         (format 
  	*output-stream* 
  