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:               (null poption-name))
           (values (nreverse options)
                   (nreverse free-args)))
        (labels ((push-arg (arg)
                   (push poption-name options)
                   (push arg          options)
                   (setf poption-name nil))
                 (process-arg (arg)
                   (restart-case
                       (handler-case
                           (push-arg (funcall poption-parser arg))
                         (error (condition)
                           (declare (ignore condition))
                           (error 'arg-parser-failed
                                  :option poption-raw
                                  :raw-arg arg)))
                     (use-value (value)
                       (push-arg value))
                     (skip-option ()
                       (setf poption-name nil))
                     (reparse-arg (str)
  
negative.code:                              #'long))
                 (find opt *options* :key key :test #'string=))))
      (do ((tokens (mapcan #'split-short-opts
                           (mapcan #'split-on-=
                                   (or options (cdr (argv)))))
                   (cdr tokens))
           poption-name
           poption-raw
  