anchor.diff:  (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))))
  +  (let ((input (first (prompt
  +                       :prompt "Describe function"
  +                       :sources (make-instance 'function-source)))))
       (setf input (function-suggestion-name input))
       (flet ((method-desc (method)
                (markup:markup
  
positive.code: (define-command describe-variable ()
    "Inspect a variable and show it in a help buffer."
    (let* ((input (variable-suggestion-name
                   (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)
  
negative.code: 
  (define-command describe-slot ()
    "Inspect a slot and show it in a help buffer."
    (let* ((input (first (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)
  