anchor.diff:                 (delete-next-char)
                  (delete-previous-char)))
           (#\) (backward-char))
  +        (#\" (when (char= (character-at p 1) #\")
  +               (delete-next-char)
  +               (delete-previous-char)))
           (otherwise
            (delete-previous-char))))
       (paredit-backward-delete (1- n))))
  
positive.code:       (character-offset p -1))
      (character-offset p -1)))
  
  (define-command paredit-backward-delete (&optional (n 1)) ("p")
    (when (< 0 n)
      (with-point ((p (current-point)))
  
negative.code:                        (backward-sexp . paredit-backward)
                         ("(" . paredit-insert-paren)
                         (")" . paredit-close-parenthesis)
                         ("\"" . paredit-insert-doublequote)
                         (delete-previous-char . paredit-backward-delete)
                         ("C-Right" . paredit-slurp)
                         ("C-Left" . paredit-barf)
  