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: 	    "~&<li><a href=\"#~a\">\~a</a></li>" 
  	    name text)))
  
  (defextension (docs-index :arguments ((kind-or-kinds :required)
  				      index-kind))
    (setf kind-or-kinds (ensure-list kind-or-kinds))
    (unless index-kind
      (setf index-kind (first kind-or-kinds)))
    (when (eq phase :render)
      (bind ((items (%items-to-index kind-or-kinds)))
        (cond ((empty-p items)
  	     (markdown-warning 
  	      (if (length-1-list-p kind-or-kinds)
  		  "There are no items of kind ~{~a~} documented."
  		  "There are no itmes of kinds~{ ~a~^ or~} documented")
  	      kind-or-kinds))
  	    (t
  	     (output-anchor index-kind)
  	     (format *output-stream* 
  		     "~&<div class=\"index ~(~a~)\">" index-kind)
  	     (format *output-stream* "~&<ul>")
  	     (loop for (item . real-kind) in items do
  		  (output-documentation-link item real-kind item))
  