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:       (skip-space-and-comment-forward p)
        (/= old-linenumber (line-number-at-point p)))))
  
  (defun cond-op-line-p (p limit)
    (and (not (delimiter-line-p p))
         (search-forward (line-start p) "?" limit)
  