anchor.diff:  
   (defun do-resume ()
     (when *restart* (funcall *restart*))
  -  (quit))
  +  (quit 0))
   
   (defun resume ()
     (do-resume))
  
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:      '(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* *debugging*))
  
  (defvar *debugging* nil)
  
  ;; Variables that define the current system
  (defvar *restart* nil)
  