anchor.diff:  			   (bind (((name initform) argument))
   			     (cond ((null initform)
   				    ;; just show argument
  -				    (format *output-stream* "~(~s~)" name))
  +				    (format *output-stream* "~(~a~)" name))
   				   ((constantp initform)
   				    ;; show both
  -				    (format *output-stream* "~((~s ~s)~)"
  +				    (format *output-stream* "~((~a ~s)~)"
   					    name initform))
   				   (t
   				    ;; just show name
  -				    (format *output-stream* "~(~s~)" name))))))
  +				    (format *output-stream* "~(~a~)" name))))))
   		      (t
   		       ;; probably part of a macro
   		       (format *output-stream* "(")
  
positive.code: 		   (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))
  
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)
  