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