anchor.diff:  (defun flet-indent-p (point)
     (with-point ((p point))
       (scan-lists p -1 1 t)
  -    (and (eql #\( (character-at p))
  +    (and (not (start-line-p p))
  +         (eql #\( (character-at p))
            (scan-lists p -1 1 t)
            (not (start-line-p p))
            (scan-lists p -1 1 t)
            (character-offset p 1)
            (eq 'flet (indent-spec-at p)))))
  +
  +(defun handler-case-indent-p (point)
  +  (with-point ((p point))
  +    (and (scan-lists p -1 1 t)
  +         (not (start-line-p p))
  +         (scan-lists p -1 1 t)
  +         (character-offset p 1)
  +         (eq 'handler-case (indent-spec-at p)))))
   
   (defun arg1-first-line-p (point)
     (with-point ((p point))
  
positive.code: 	 ("macrolet" . flet)
  	 ("generic-flet" . flet)
  	 ("generic-labels" . flet)
  	 ("handler-case" . 1)
  	 ("restart-case" . 1)
  	 ("lambda" . 1)
  	 ("let" . 1)
  	 ("let*" . 1)
  
negative.code:                 (if (<= arg-count spec)
                      4
                      2)))
              ((eq spec 'handler-case)
               (+ car-column
                  (if (<= arg-count 1)
                      4
                      2)))
              ((eq spec 'flet)
               (+ car-column 2))
              ((eq spec 'progn)
               (or (arg1-first-line-p point)
                   (+ car-column 2)))
              ((flet-indent-p point)
               (+ car-column 2))
              ((handler-case-indent-p point)
               (+ car-column 2))
              ((eql #\: (character-at point))
               (1+ car-column))
  