anchor.diff:  (define-command describe-class ()
     "Inspect a class and show it in a help buffer."
     (let* ((input (class-suggestion-name
  -                 (prompt
  -                  :prompt "Describe class"
  -                  :sources (make-instance 'class-source)))))
  +                 (first (prompt
  +                         :prompt "Describe class"
  +                         :sources (make-instance 'class-source))))))
       (with-current-html-buffer (buffer
                                  (str:concat "*Help-" (symbol-name input) "*")
                                  'nyxt/help-mode:help-mode)
  
positive.code: 
  (define-command describe-slot ()
    "Inspect a slot and show it in a help buffer."
    (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)
  
negative.code: (define-command describe-variable ()
    "Inspect a variable and show it in a help buffer."
    (let* ((input (variable-suggestion-name
                   (first (prompt
                           :prompt "Describe variable:"
                           :sources (make-instance 'variable-source))))))
      (with-current-html-buffer (buffer
                                 (str:concat "*Help-" (symbol-name input) "*")
                                 'nyxt/help-mode:help-mode)
  