anchor.diff:                       (when (= "}" curr-char)
                          (if newlisp-brace-locations
                              (pop newlisp-brace-locations)
  -                         (issue-warning "--%s-- `%s': Warning: Attempt to close a non-existent string\n" 
  +                         (issue-warning "--%s-- `%s': Warning: Attempt to close a non-existent string\n"
                                           (list (current_time) fname)
                                           *warn* *exit* fname))
                          (-- in-newlisp-string?))))
  
positive.code:     "with-exception-handler" "with-input-from-file" "with-interrupts-disabled"
      "with-input-from-string" "with-output-to-file" "with-input-from-port"
      "with-output-to-string" "with-source-path" "with-syntax" "with-implicit"
      "with-error-handler" "module" "parameterize")) 
  
  (define *clojure-keywords*
    '("defn" "fn" "dorun" "doseq" "loop" "when" "let" "defmacro" "binding" "doto"
  
negative.code:                      (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"
                         (list (current-time) fname)
                         *warn* nil fname)
        (begin
  