anchor.diff:  	 ("macrolet" . flet)
   	 ("generic-flet" . flet)
   	 ("generic-labels" . flet)
  -	 ("handler-case" . 1)
  -	 ("restart-case" . 1)
  +	 ("handler-case" . handler-case)
  +	 ("restart-case" . handler-case)
   	 ("lambda" . 1)
   	 ("let" . 1)
   	 ("let*" . 1)
  
positive.code: (defun flet-indent-p (point)
    (with-point ((p point))
      (scan-lists p -1 1 t)
      (and (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 arg1-first-line-p (point)
    (with-point ((p point))
  
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))
  