anchor.diff:       ((find CR str) CR)
        (true LF))))
   
  +
   (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. "
  
positive.code:           (setf (last str-list) (rstrip (last str-list) sep))
            str-list)))))
  
  (define (find-line-ending str)
    "Find the line ending of the file by simply testing for existence of
    the three possible line endings hoping that the line endings are not mixed
  
negative.code:             ("--lisp"    (throw "Common Lisp"))
              ("--newlisp" (throw "newLISP"))
              ("--scheme"  (throw "Scheme"))))) "All"))
  
  
  (define (fprint)
    (println (format (args 0) (rest (args)))))
  