anchor.diff:          (form-offset word-start -1)
           (with-point ((word-end word-start))
             (form-offset word-end 1)
  -          (kill-region word-end end)
  -          (kill-region start word-start))))))
  +          (delete-between-points word-end end)
  +          (delete-between-points start word-start))))))
   
   (loop for (k . f) in '((forward-sexp . paredit-forward)
                          (backward-sexp . paredit-backward)
  
positive.code:       (%skip-closed-parens-and-whitespaces-forward yank-point t)
        (unless (end-buffer-p yank-point)
          (form-offset yank-point 1)
          (kill-ring-new)
          (with-point ((kill-end kill-start))
            (character-offset kill-end 1)
            (kill-region kill-start kill-end)
            (move-point (current-point) yank-point)
            (yank)
            (move-point (current-point) origin)
            (indent-region origin yank-point))))))
  
  (define-command paredit-barf () ()
    (with-point ((origin (current-point) :right-inserting)
  
negative.code:         (scan-lists end 1 0)
          (character-offset end -1)
          (delete-character start)
          (delete-between-points origin end)
          (indent-region start end)))))
  
  (define-command paredit-raise () ()
  