anchor.diff:  
   (define-internal-page-command describe-variable
       (&key (variable
  -           (first (prompt
  -                   :prompt "Describe variable:"
  -                   :sources (make-instance 'variable-source)))))
  +           (prompt1
  +             :prompt "Describe variable:"
  +             :sources (make-instance 'variable-source))))
       (buffer (str:concat "*Help-" (symbol-name variable) "*")
               'nyxt/help-mode:help-mode)
     "Inspect a variable and show it in a help buffer."
  
positive.code:                      (write-to-string (sexp command))))))))
  
  (define-internal-page-command describe-slot
      (&key (slot (first (prompt
                          :prompt "Describe slot"
                          :sources (make-instance 'slot-source)))))
      (buffer (str:concat "*Help-" (symbol-name (name slot)) "*")
              'nyxt/help-mode:help-mode)
    "Inspect a slot and show it in a help buffer."
  
negative.code:       (:p (:raw (value->html (symbol-value variable) :help-mode help-mode))))))
  
  (define-internal-page-command describe-function
      (&key (function (prompt1
                        :prompt "Describe function"
                        :sources (make-instance 'function-source))))
      (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
  