anchor.diff:                  "~&Unhandled SERIOUS-CONDITION of type ~A is signaled: ~A~%"
                   (type-of condition)
                   condition)
  +        (print-backtrace :stream *standard-output*)
           (funcall on-problem-func)))))
   
   (defun saving-output (file body)
  
positive.code:                        :if-exists :supersede
                         :if-does-not-exist :create)
      (pprint value out)))
  
  (defun catching-problems (body-func on-problem-func)
    "Runs BODY-FUNC and returns it's result. But if BODY-FUNC causes any
  
negative.code:     (let* ((*standard-output* stream)
             (*error-output* stream))
        (funcall body))))
  