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-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:                    ((,slot ,value)))))
          (let ((accepted-input
                  (loop while t do
                           (let ((input (first (prompt
                                                :prompt (format nil "Configure slot value ~a" slot)
                                                :sources (make-instance 'prompter:raw-source)))))
                             ;; no type specified, no need to keep querying
                             (unless type (return input))
                             (when (typep (read-from-string input) type)
  