anchor.diff:                            (rest body)
                             body)))
       `(progn
  -       (register-option (wrap-option-function ',(cons main-name other-names)
  -                                              ',parameters
  -                                              ',docstring
  -                                              (lambda ,(remove '&rest parameters)
  -                                                ,docstring
  -                                                (block ,lisp-name
  -                                                  ,@body)))
  +       (register-option ,(generate-wrap-option-function 
  +                          (cons main-name other-names)
  +                          parameters
  +                          docstring
  +                          `(lambda ,(remove '&rest parameters)
  +                             ,docstring
  +                             (block ,lisp-name
  +                               ,@body)))
                           t)
          ',lisp-name)))
   
  
positive.code:               ;; linux sysexits:
                ((or arithmetic-error parse-error print-not-readable type-error) (err)
                  (format *error-output* "~%ERROR: ~A~%" err)
                 (parse-options-finish ex-dataerr))
                ((or cell-error control-error package-error program-error) (err)
                  (format *error-output* "~%ERROR: ~A~%" err)
                 (parse-options-finish ex-software))
                (file-error (err)
                  (format *error-output* "~%ERROR: ~A~%" err)
                  (parse-options-finish ex-osfile))
  
negative.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2015-01-29 <PJB> Replaced wrap-option-function by generate-wrap-option-function
  ;;;;                     to avoid calling COMPILE at compilation time, since abcl seems
  ;;;;                     to be not liking it.
  ;;;;    2012-03-10 <PJB> Extracted from ~/bin/script.lisp
  ;;;;BUGS
  ;;;;LEGAL
  