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:   (format *output-stream* "<span class=\"hidden\">X</span>")
    (format *output-stream*
  	  "~&<span class=\"documentation-name\">~s</span>" symbol)
    (when (thing-may-have-arguments-p symbol)
      (let ((arguments (mopu:function-arglist symbol)))
        (when arguments
  	(format *output-stream*
  