anchor.diff:  		     "<span class=\"marker\">&amp;~(~a~)</span>" 
   		     (subseq (symbol-name argument) 1)))
   	    (t
  -	     (format *output-stream* "~(~s~)" argument)))
  +	     (format *output-stream* "~(~a~)" argument)))
         (setf first? nil))))
   
   (defgeneric find-documentation (thing strategy)
  
positive.code: 		   (format *output-stream* "</span>"))))
  	     (format *output-stream* "~&</div>~%")
  	     (format *output-stream* 
  		     "~&<span class=\"documentation-kind\">~a</span>" symbol)
  	     (format *output-stream* "~&</div>~%")
  	     (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))))))
  
  
negative.code: 			   (bind (((name initform) argument))
  			     (cond ((null initform)
  				    ;; just show argument
  				    (format *output-stream* "~(~a~)" name))
  				   ((constantp initform)
  				    ;; show both
  				    (format *output-stream* "~((~a ~s)~)"
  					    name initform))
  				   (t
  				    ;; just show name
  				    (format *output-stream* "~(~a~)" name))))))
  		      (t
  		       ;; probably part of a macro
  		       (format *output-stream* "(")
  