anchor.diff:                       (append (list (current-time) fname) first-tag-string) *warn* *exit* fname))
   
       (if (= indented-code original-code)
  -        (issue-warning "\n--%s-- File `%s' has already been formatted. Leaving it unchanged. . .\n" 
  +        (issue-warning "\n--%s-- File `%s' has already been formatted. Leaving it unchanged. . .\n"
                          (list (current-time) fname)
                          *warn* nil fname)
         (begin
  
positive.code: (define (is-macro-name? form dialect)
    "Going to be used to determine whether the form should be indented by two spaces- since
    almost all macros do- using the dialect's conventions. "
    (and (cond 
          ((null? form) nil)
          ((= dialect "Common Lisp") (regex "macro|def|do|with-" form 0))
          ((= dialect "Scheme")      (regex "call-|def|with-" form 0))
  
negative.code:           (issue-warning "\n--%s-- %s: Warning: Bracket `%s' at (%d, %d) does not match `%s' at (%d, %d)"
                           (list (current-time) fname popped-bracket line-number popped-offset bracket line real-pos)
                           *warn* *exit* fname)))
      (let ((bpos
             (if *exit*
                 (+ 1 real-pos)
               (+ 1 offset))))
  