anchor.diff:       '(finish-outputs quit resume restart debugging
          run do-run run-commands run-command
          with-coded-exit with-controlled-compiler-conditions with-xcvb-compilation
  -       *uninteresting-conditions*))
  +       *uninteresting-conditions* *debugging*))
  +
  +(defvar *debugging* nil)
   
   ;; Variables that define the current system
   (defvar *restart* nil)
  
positive.code:     (shell-boolean (asdf-systems-up-to-date-p systems))))
  
  (defun debugging ()
    #+sbcl (sb-ext:enable-debugger)
    #+clisp (ext:set-global-handler #'invoke-debugger)
    (setf *load-verbose* t *compile-verbose* t *compile-print* t)
  
negative.code: (defvar *stderr* *error-output*)
  
  (defun bork (condition)
    (unless *debugging*
      (format *stderr* "~&~A~%" condition)
      (print-backtrace *stderr*)
      (format *stderr* "~&~A~%" condition)
      (quit 99)))
  
  (defun call-with-coded-exit (thunk)
    (handler-bind ((error #'bork))
  