anchor.diff:        (read-file filename)
       (issue-warning "--%s-- Exiting. Filename `%s' is not valid"
                      (list (current-time) filename) *warn* true filename))) ;; Exit if the filename is invalid
  +
   
   (define (issue-warning warning-message message-format warn? exit-after-warning? fname)
     (when warn?
  
positive.code:           ;(rename-file "temp.yasi" fpath)
            )))))
  
  (define (indent-file fpath)
    (letn ((fname (real-path fpath))
           (code (read-file! (or fname (filename-from-path fpath))))
  
negative.code:         ((= dialect "newLISP")     (regex "macro|def" form 0)))
         true)) ;; Return true if any of the regexes above match
  
  
  (define (all-whitespace? str)
    "Returns true if the line has only whitespace to the end. Such a line
    should not be messed with. If you don't want any whitespace to be preserved,
    make the function return true for every value"
    (and (regex "^[ \t]*(\r|\n|$)" str 0) true))
  
  
  (define (find-trim-limit str)
    "Returns the maximum index to stop trimming at so that we don't alter the structure
  