anchor.diff:  ;;;
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  +(define-condition parse-options-finish (condition)
  +  ((status-code :initarg :status-code :reader parse-options-finish-status-code))
  +  (:report "PARSE-OPTIONS-FINISH must be called only in the dynamic context of a call to PARSE-OPTIONS"))
  +
  +(defun parse-options-finish (status-code)
  +  (error 'parse-options-finish :status-code status-code))
   
   
   
  
positive.code:            "CALL-OPTION-FUNCTION" 
             "SET-DOCUMENTATION-TEXT"
             "*BASH-COMPLETION-HOOK*"
             "PARSE-OPTIONS" "QUIT"
             ;; Exit codes:
             "EX-OK" "EX--BASE" "EX-USAGE" "EX-DATAERR" "EX-NOINPUT"
             "EX-NOUSER" "EX-NOHOST" "EX-UNAVAILABLE" "EX-SOFTWARE"
  
negative.code:         (princ ,verror *error-output*)
          (terpri *error-output*)
          (terpri *error-output*)
          #-testing-script (parse-options-finish ex-software)))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  