anchor.diff:  See `*debug-on-error*'."
     (let ((value (if value-provided-p value (not *debug-on-error*))))
       (setf *debug-on-error* value)
  -    (when (and value (not *debug-on-error*))
  -      (setf *old-debugger-hook* *debugger-hook*))
       ;; FIXME: This messes up SLIME/SLY debugging in REPL, as they set this too.
  -    (swank-backend:install-debugger-globally (if value #'debugger-hook *old-debugger-hook*))
  +    (swank-backend:install-debugger-globally (if value 'debugger-hook nil))
       (echo "Nyxt-native debugging ~:[dis~;en~]abled." value)))
  
positive.code: the channel, wrapped alongside the condition and its restarts."))
  
  (defun debugger-hook (condition hook)
    (declare (ignore hook))
    (when *debug-on-error*
      (let* ((*debugger-hook* *old-debugger-hook*)
             (id (new-id))
             (restarts (compute-restarts condition))
             (channel (make-channel 1))
  
negative.code: ;;;; SPDX-License-Identifier: BSD-3-Clause
  
  (in-package :nyxt)
  
  (defvar *debug-conditions* (make-hash-table)
    "A hash-table from condition ID (as per `new-id') to the `condition-handler' lists.")
  