anchor.diff:          (princ ,verror *error-output*)
           (terpri *error-output*)
           (terpri *error-output*)
  -        #-testing-script (throw 'quit 1)))))
  +        #-testing-script (parse-options-finish ex-software)))))
   
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:       (if index
            (completion-option-prefix (elt words index))
            (completion-all-options))))
    (throw 'quit 0))
  
  
  (define-option ("--bash-completion-function") ()
  
negative.code: ;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (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))
  
  
  
  