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:   "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:             'nyxt/help-mode:help-mode)
    "Inspect a package and show it in a help buffer."
    (let ((total-symbols (package-defined-symbols nil (list package)))
          (external-symbols (package-defined-symbols (list package)))
          (*print-case* :downcase))
      (flet ((package-markup (package)
               (spinneret:with-html
                 (:a :href (nyxt-url 'describe-package :package (package-name package))
  