anchor.diff:  (defun end-block-line-p (p)
     (with-point ((p p))
       (loop :for start := 0 :then (1+ i)
  -          :for i := (let ((a (position #\} (line-string p) :start start))
  -                          (b (position #\] (line-string p) :start start)))
  -                      (cond ((and a b) (min a b))
  -                            (t (or a b))))
  +          :for i := (loop with result
  +                          for c in '(#\} #\] #\))
  +                          for v = (position c (line-string p) :start start)
  +                          when v
  +                          do (setf result (if result (min result v) v))
  +                          finally (return result))
             :while i
             :do (unless (let ((p (character-offset (line-start p) i)))
                           (check-type p point)
  
positive.code:           (decf indent tab-width))))
      (let ((word (looking-at p "\\w+"))
            (word-point)
            (state)
            (unbalanced-flag nil))
        (when word
          (setf word-point (copy-point p :temporary))
          (character-offset p (length word))
  
negative.code:         (setf state (parse-partial-sexp (copy-point start :temporary)
                                          (line-end p)))
          (cond
            ((and word (ppcre:scan "^(?:case|default)$" word))
             (%indent p (- indent tab-width)))
            (t
             (%indent p indent)
             (unless (indent-cond-op p indent)
               (return-from %indent-line nil)))))
        (when (find (car (pps-state-paren-stack state)) '(#\{ #\[ #\())
          (let ((indent (+ indent tab-width))
                (status))
            (loop
  