anchor.diff:    (flet ((print-part (str)
              (when str
                (princ str stream)
  +             (terpri stream)
                (terpri stream))))
       (print-part prefix)
       (when *options*
  -      (format stream "~%Available options:~%"))
  +      (format stream "Available options:~%"))
       (dolist (opt *options*)
         (with-slots (short long description arg-parser meta-var) opt
           (format stream "  ~27a~a~%"
  
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:                       (char/= #\- (char arg 1)))
                   (mapcar (lambda (c) (format nil "-~c" c))
                           (cdr (coerce arg 'list)))
                   (list arg)))
             (split-on-= (arg)
               (if (and (char= #\- (char arg 0))
                        (char/= #\= (char arg 1)))
                   (let ((pos (position #\= arg :test #'char=)))
                     (if pos
                         (list (subseq arg 0 pos)
                               (subseq arg (1+ pos) (length arg)))
                         (list arg)))
                   (list arg)))
             (shortp (opt)
               (and (= (length opt) 2)
  