anchor.diff:       (class (prompt1
                 :prompt "Describe class"
                 :sources (make-instance 'class-source :universal universal))))
  -    (buffer (str:concat "*Help-" (symbol-name class) "*"))
  +    (buffer (str:concat "*Help-" (symbol-name class) "*") 'nyxt/help-mode:help-mode)
     "Inspect a class and show it in a help buffer."
     (let* ((slots (class-public-slots class))
            (slot-descs (apply #'str:concat (mapcar (alex:rcurry #'describe-slot* class) slots)))
  
positive.code: 
  (sera:eval-always ; To satisfy `fboundp' of `manual' at compile-time (e.g. CCL).
    (define-internal-page-command-global manual ()
        (buffer "*Manual*")
      "Show the manual."
      (spinneret:with-html-string (:style (style buffer))
        (:style (cl-css:css '(("body"
  
negative.code:      (function (prompt1
                   :prompt "Describe function"
                   :sources (make-instance 'function-source :universal universal))))
      (buffer (str:concat "*Help-" (symbol-name function) "*") 'nyxt/help-mode:help-mode)
    "Inspect a function and show it in a help buffer.
  For generic functions, describe all the methods."
    (if function
  