anchor.diff:    num-aligned-subforms
     (num-finished-subforms 0))
   
  -(defun calc-subindent (str i n)
  -  #|
  +#|
    (print (calc-subindent "eval-when (condition that)" 0 20)) ;; ==> 2
    (print (calc-subindent "some-func (condition that)" 0 20)) ;; ==> 11
    (print (calc-subindent "some-func   (condition that)" 0 20)) ;; ==> 11
  
positive.code:                         (t (+ (- j i) 2))))))))) ;; assumes that the first argument starts after the space at the end of the token
      (values left-indent num-aligned-subforms (1- j)))) ;; j stores where we last stopped processing
  
  (defun num-leading-spaces (str)
    (let ((n (length str))
          (i 0))
  
negative.code:                  (incf i))))))))
      (indent-lines)))
  
  
  (when *modify-file*
    (delete-file *file-name*)
    (rename-file "indented-file.lisp" *file-name*))
  