anchor.diff:                       (error 'missing-arg
                               :option poption-raw)
                      (use-value (value)
  -                     (push-arg value))
  +                     (push-option poption-name value))
                      (skip-option ()
                        (setf poption-name nil))))
                   ((optionp item)
  
positive.code:   (flet ((print-part (str)
             (when str
               (princ str stream)
               (terpri stream))))
      (print-part prefix)
      (when *options*
        (format stream "~%Available options:~%"))
      (dolist (opt *options*)
        (with-slots (short long description arg-parser meta-var) opt
          (format stream "  ~27a~a~%"
  
negative.code:                              (setf poption-name (name option)
                                     poption-raw  opt
                                     poption-parser parser)
                               (push-option (name option) t)))
                         (restart-case
                             (error 'unknown-option
                                    :option opt)
  