anchor.diff:  		   (mopu:writer-method-p m)))
   	     (mopu:generic-function-methods (symbol-function symbol)))))
   
  +;;;;
  +
   (defextension (links-list :arguments ((kind-or-kinds :required)
   				      index-kind))
     (setf kind-or-kinds (ensure-list kind-or-kinds))
  
positive.code: 			   (bind (((name initform) argument))
  			     (cond ((null initform)
  				    ;; just show argument
  				    (format *output-stream* "~(~s~)" name))
  				   ((constantp initform)
  				    ;; show both
  				    (format *output-stream* "~((~s ~s)~)"
  					    name initform))
  				   (t
  				    ;; just show name
  				    (format *output-stream* "~(~s~)" name))))))
  		      (t
  		       ;; probably part of a macro
  		       (format *output-stream* "(")
  
negative.code: 		     "<span class=\"marker\">&amp;~(~a~)</span>" 
  		     (subseq (symbol-name argument) 1)))
  	    (t
  	     (format *output-stream* "~(~a~)" argument)))
        (setf first? nil))))
  
  (defgeneric find-documentation (thing strategy)
  