anchor.diff:  	     (format *output-stream* "<div class=\"doc name-and-args\">")
   	     (format *output-stream* "<span class=\"hidden\">X</span>")
   	     (format *output-stream*
  -		     "~&<span class=\"documentation-name\">~a</span>" name)
  +		     "~&<span class=\"documentation-name\">~s</span>" name)
   	     (when (symbol-may-have-arguments-p symbol)
   	       (let ((arguments (mopu:function-arglist symbol)))
   		 (when arguments
  
positive.code: 					    (cons symbol kind)))))))
  	      result))
  	   (t
  	    (collect-keys (item-at-1 docs kind) 
  			  :transform (lambda (symbol)
  				       (cons symbol kind)))))
       #'string-lessp
       :key #'first)))
  
  
negative.code: 	(typep (symbol-function symbol) 'standard-generic-function))))
  
  (defun display-arguments (arguments)
    (let ((space-entity (document-property "docs-space-entity" "&ensp;")))
      (dolist (argument arguments)
        ;; bail on &aux
        (when (and (symbolp argument)
  		 (string-equal (symbol-name argument) "&aux"))
  	(return))	
        (cond ((consp argument)
  	     (cond ((eq (car argument) 'quote)
  		    (format *output-stream* "'~(~a~)" (rest argument)))
  		   (t
  		    ;; probably part of a macro
  		    (format *output-stream* "(")
  		    (display-arguments argument)
  		    (format *output-stream* ")~a" space-entity))))
  	    ((and (symbolp argument)
  		  (string-equal (symbol-name argument) "&" 
  				:start1 0 :start2 0 :end1 1 :end2 1)) 
  	     (format *output-stream* 
  		     "<span class=\"marker\">&amp;~(~a~)~a</span>" 
  		     (subseq (symbol-name argument) 1) space-entity))
  	    (t
  	     (format *output-stream* "~(~a~)~a" argument space-entity))))))
  
  (defgeneric find-documentation (thing strategy)
    (:documentation "Return the documentation for thing using strategy. The default is to call the Common Lisp documentation method with strategy being used as the type."))
  