anchor.diff:          (when (find parent-func '("flet" "labels" "macrolet"))
             (setf ((first lst) *indent-level*) (+ 2 offset)))))
       lst))
  -
   
   
   (define (indent-code original-code fpath)
  
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:     "try" "finally" "for" "letfn" "catch" "iterate" "while" "with-local-vars"
      "locking" "defmulti" "defmethod" "extend"
      ))
  
  
  (define *lisp-keywords*
    '(":implementation" ":method" "case" "defclass" "defconstant" "defgeneric"
  