anchor.diff:                    nil)
                    (default
                     (funcall default)))))
  -        (if *debug*
  +        (if *debug-options*
               (process-arguments)
               (handler-case
                   (process-arguments)
  
positive.code: DEFAULT:            Thunk called if ARGUMENTS is empty.
  UNDEFINED-ARGUMENT: Thunk called if an undefined option is present in
                      the ARGUMENTS.
  "
    (handler-case
        (flet ((process-arguments ()
  
negative.code: (defpackage "COM.INFORMATIMAGO.COMMON-LISP.UNIX.OPTION"
    (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.STRING")
    (:export "PNAME" "*PROGRAM-NAME*" "*DEBUG-OPTIONS*"
             "REDIRECTING-STDOUT-TO-STDERR"
             "DEFINE-OPTION"
             "CALL-OPTION-FUNCTION"
  