anchor.diff:  ;; 5 - DATA AND CONTROL FLOW
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  -
   (defun safe-apply (fun &rest args)
     "
   DO:    Call APPLY or REDUCE depending on the length of ARGS.
  
positive.code:   (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST")
    #+mocl (:shadowing-import-from "COM.INFORMATIMAGO.MOCL.KLUDGES.MISSING"
                                   "*TRACE-OUTPUT*"
                                   "*LOAD-VERBOSE*"
  
negative.code: ;; 9 - CONDITIONS
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (define-condition simple-program-error (program-error)
    ((format-control   :initarg :format-control   :reader simple-program-error-format-control)
     (format-arguments :initarg :format-arguments :reader simple-program-error-format-arguments))
    (:report (lambda (condition stream)
               (format stream "~?"
                       (simple-program-error-format-control condition)
                       (simple-program-error-format-arguments condition)))))
  
  (defmacro handling-errors (&body body)
    "
  