anchor.diff:    (destructuring-bind (condition restarts channel)
         (gethash id *debug-conditions*)
       (declare (ignore channel))
  -    (debug->html condition id restarts)))
  +    (debug->html condition id restarts buffer t)))
   
   (define-command-global toggle-debug-on-error (&key (value nil value-provided-p))
     "Toggle Nyxt-native debugging.
  
positive.code:            for i from 0 by 1
             collect (:button :class "button"
                              :onclick (ps:ps (nyxt/ps:lisp-eval
                                               `(calispel:!
                                                 (third (gethash ,id *debug-conditions*))
                                                 (nth ,i (second (gethash ,id *debug-conditions*))))))
                              (format nil "[~d] ~a" i (restart-name restart))))
       (:h* "Backtrace")
       (:pre (with-output-to-string (s) (uiop:print-backtrace :stream s :condition condition))))))
  
  ;; FIXME: Not for interactive use?
  
negative.code:       ;; FIXME: Waits indefinitely. Should it?
        (invoke-restart-interactively (calispel:? channel)))))
  
  (defun debug->html (condition id &optional restarts buffer delete-buffer-p)
    "Produce HTML code for the CONDITION with RESTARTS."
    (spinneret:with-html-string
      (:h* (symbol-name (type-of condition)))
  