anchor.diff:          (setf state (parse-partial-sexp (copy-point start :temporary)
                                           (line-end p)))
           (cond
  -          ((unbalanced-p state)
  -           (setf unbalanced-flag t)
  -           (unless (setf state (unbalanced-indent p indent start))
  -             (return-from %indent-line nil)))
             ((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 (or (eql #\{ (car (pps-state-paren-stack state)))
  -                (eql #\[ (car (pps-state-paren-stack state))))
  +      (when (find (car (pps-state-paren-stack state)) '(#\{ #\[ #\())
           (let ((indent (+ indent tab-width))
                 (status))
             (loop
  
positive.code:   (with-point ((tmp (line-end p)))
      (when (cond-op-line-p p tmp)
        (line-start tmp)
        (when (and (not (unbalanced-p (parse-partial-sexp tmp p)))
                   (not (delimiter-line-p p)))
          (loop
            (unless (line-offset p 1) (return-from indent-cond-op nil))
            (%indent-line p (+ indent tab-width))
  
negative.code:           (decf indent tab-width))))
      (let ((word (looking-at p "\\w+"))
            (word-point)
            (state))
        (when word
          (setf word-point (copy-point p :temporary))
          (character-offset p (length word))
  