anchor.diff:    "Inspect a function and show it in a help buffer.
   For generic functions, describe all the methods."
     (if function
  -      (let ((input function))
  +      (let ((input function)
  +            (*print-case* :downcase))
           (flet ((method-desc (method)
                    (spinneret:with-html-string
                      (:h1 (symbol-name input) " " (write-to-string (mopu:method-specializers method)))
  
positive.code:          (source-file
             (alex:when-let ((location (getf (swank:find-definition-for-thing (fn command))
                                             :location)))
               (alex:last-elt location))))
      (spinneret:with-html-string
        (:style (style buffer))
        (:h1 (symbol-name (name command))
  
negative.code:   "Create the HTML that represents a slot."
    ;; TODO: Adapt HTML sections / lists to describe-slot and describe-class.
    ;; TODO: Parse docstrings and highlight code samples.
    (let ((props (mopu:slot-properties (find-class class) slot))
          (*print-case* :downcase))
      (spinneret:with-html-string
        (:ul
         (:li (symbol-name slot))
  