anchor.diff:               (bool? (lst [compact]))
                (bool? (lst [warning]))
                (bool? (lst [modify])))))
  -         (options (list (real-path) 1 "" '() nil nil true true true true nil))
  +         (options (list (real-path) 1 "" '() nil nil true true true true nil ""))
            (matches-opt? (lambda (opt var)
                            (letn ((dashes (find "^-+" opt 0)))
                              (and (if dashes
  
positive.code:                       (setq (options [backup-dir]) (backup-dir-pair 1))
                      (setq (options [backup-dir]) (join (rest lst) "=")))))
                (cond
                 ((matches-opt? "-nc" curr) (setq (options [compact]) nil))
                 ((matches-opt? "-no-compact" curr) (setq (options [compact]) nil))
                 ((matches-opt? "-nb" curr) (setq (options [backup]) nil))
  
negative.code: (define [modify] 8)
  (define [output] 9)
  (define [uniform] 10)
  (define [output-file] 11)
  
  (define [message] 0)
  (define [line] 1)
  