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: 		     "<span class=\"marker\">&amp;~(~a~)</span>" 
  		     (subseq (symbol-name argument) 1)))
  	    (t
  	     (format *output-stream* "~(~s~)" argument)))
        (setf first? nil))))
  
  (defgeneric find-documentation (thing strategy)
  
negative.code: 		   (format *output-stream* "</span>"))))
  	     (format *output-stream* "~&</div>~%")
  	     (format *output-stream* 
  		     "~&<span class=\"documentation-kind\">~a</span>" identity)
  	     (format *output-stream* "~&</div>~%")
  	     (unless (document-property :docs-signatures-only)
  	       (format *output-stream* 
  		       "<div class=\"documentation contents\">")	   
  	       (cond 
  		 (docs
  		  (markdown docs
  			    :stream *output-stream*
  			    :format *current-format*
  			    :properties '(("html" . nil)
  					  (:omit-final-paragraph . t)
  					  (:omit-initial-paragraph . t))))
  		 (t
  		  (format 
  		   *output-stream* 
  		   "<span class='no-docs'>No documentation found</span>")))
  	       (format *output-stream* "~&</div>~%"))
  	     (format *output-stream* "~&</div>~%"))
  	   nil))))))
  
  