anchor.diff:      (format *output-stream*
   	    "~&(#~a ~a)" 
   	    name text)))
  +
  +#|
  +(defvar *foo-1* 2)
  +
  +(defun foo-1 ()
  +  "foo-1"
  +  *foo-1*)
  +
  +(defun inv-foo-1 (value)
  +  "inv-foo-1"
  +  (setf *foo-1* value))
  +
  +(defsetf foo-1 inv-foo-1 "defsetf foo-1")
  +
  +(defun (setf foo-1) (value)
  +  "(setf foo-1)"
  +  (setf *foo-1* value))
  + 
  +(documentation 'foo-1 'setf)
  +|#
positive.code: 	value))
  
  (defun output-documentation-link (item kind text)
    (let ((name (html-safe-name (format nil "~a.~a" item kind))))
      (format *output-stream*
  	    "~&<li><a href=\"#~a\">\~a</a></li>" 
  	    name text)))
  
  (defextension (docs-index :arguments ((kind-or-kinds :required)
  				      index-kind))
  
negative.code:   (loop for (predicate kind nil) in *symbol-identities* 
         when (funcall predicate symbol) collect kind))
  
  (defun thing-names-class-p (doc-holder)
    (and (symbolp doc-holder)
         (let ((class (find-class doc-holder 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
  