anchor.diff:  
   (define-command describe-slot ()
     "Inspect a slot and show it in a help buffer."
  -  (let* ((input (prompt-minibuffer
  -                 :input-prompt "Describe slot"
  -                 :suggestion-function (slot-suggestion-filter))))
  +  (let* ((input (prompt
  +                 :prompt "Describe slot"
  +                 :sources (make-instance 'slot-source))))
       (with-current-html-buffer (buffer
                                  (str:concat "*Help-" (symbol-name (name input)) "*")
                                  'nyxt/help-mode:help-mode)
  
positive.code: (define-command describe-class ()
    "Inspect a class and show it in a help buffer."
    (let* ((input (class-suggestion-name
                   (prompt-minibuffer
                    :input-prompt "Describe class"
                    :suggestion-function (class-suggestion-filter)))))
      (with-current-html-buffer (buffer
                                 (str:concat "*Help-" (symbol-name input) "*")
                                 'nyxt/help-mode:help-mode)
  
negative.code: (define-command describe-function ()
    "Inspect a function and show it in a help buffer.
  For generic functions, describe all the methods."
    (let ((input (prompt
                  :prompt "Describe function"
                  :sources (make-instance 'function-source))))
      (setf input (function-suggestion-name input))
      (flet ((method-desc (method)
               (markup:markup
  