anchor.diff:           (source-file
              (alex:when-let ((location (getf (swank:find-definition-for-thing (fn command))
                                              :location)))
  -             (alex:last-elt location))))
  +             (alex:last-elt location)))
  +         (*print-case* :downcase))
       (spinneret:with-html-string
         (:style (style buffer))
         (:h1 (symbol-name (name command))
  
positive.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)))
      (spinneret:with-html-string
        (:ul
         (:li (symbol-name slot))
  
negative.code:   "Inspect a function and show it in a help buffer.
  For generic functions, describe all the methods."
    (if 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)))
  