anchor.diff:          (push (setq c (cons x nil)) *lisp-keywords*))
         (setf (cdr c) n))))
   
  +
   (define-with-lisp-indent-number 0
     '(block
       handler-bind
       loop))
  +
   
   (define-with-lisp-indent-number 1
     '(case
  
positive.code:  (print (calc-subindent "'(   (condition that)" 0 20)) ;; ==> 1
   (print (calc-subindent ":define   (condition that)" 0 20)) ;; ==> 2
  |#
    (let* ((j (past-next-token str i n)) ;; store position of start of the next token
           (num-aligned-subforms 0)
           (left-indent
  
negative.code:                  (incf i))))))))
      (indent-lines)))
  
  
  (when *modify-file*
    (delete-file *file-name*)
    (rename-file "indented-file.lisp" *file-name*))
  