anchor.diff:  (defun configure-slot (slot class &key
                                       (type (getf (mopu:slot-properties (find-class class) slot)
                                                   :type)))
  -  "Set the value of a slot in `*auto-config-file*'.
  +  "Set value of CLASS' SLOT in `*auto-config-file*'.
   CLASS is a class symbol."
     (sera:nlet lp ()
       (let ((input (read-from-string
  
positive.code: (in-package :nyxt)
  
  (defmacro command-markup (fn &key (modes nil explicit-modes-p))
    "Print FN in HTML followed its bindings in parentheses."
    `(let ((spinneret:*suppress-inserted-spaces* t))
       (spinneret:with-html (:span
                             (:a :href (nyxt-url 'describe-command :command ,fn)
  
negative.code:        (error "~a is not a function." ,fn)))
  
  (defmacro command-information (fn)
    "Print FN keybinding and first docstring sentence in HTML."
    `(spinneret:with-html (:li (command-markup ,fn) ": " (command-docstring-first-sentence ,fn))))
  
  (defun list-command-information (fns)
  