anchor.diff:  
   (defun do-resume ()
     (when *restart* (funcall *restart*))
  -  (quit))
  +  (quit 0))
   
   (defun resume ()
     (do-resume))
  
positive.code: (defvar *stderr* *error-output*)
  
  (defun bork (condition)
    (format *stderr* "~&~A~%" condition)
    (print-backtrace *stderr*)
    (format *stderr* "~&~A~%" condition)
    (quit 99))
  
  (defun call-with-coded-exit (thunk)
    (handler-bind ((error #'bork))
  
negative.code:     (shell-boolean (asdf-systems-up-to-date-p systems))))
  
  (defun debugging ()
    (setf *debugging* t)
    #+sbcl (sb-ext:enable-debugger)
    #+clisp (ext:set-global-handler #'invoke-debugger)
    (setf *load-verbose* t *compile-verbose* t *compile-print* t)
  