anchor.diff:        (%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))))))
  +        (let ((c (character-at kill-start)))
  +          (delete-character kill-start)
  +          (insert-character yank-point c))
  +        (move-point (current-point) origin)
  +        (indent-region origin yank-point)))))
   
   (define-command paredit-barf () ()
     (with-point ((origin (current-point) :right-inserting)
  
positive.code:         (scan-lists end 1 0)
          (character-offset end -1)
          (delete-character start)
          (kill-region origin end)
          (indent-region start end)))))
  
  (define-command paredit-raise () ()
  
negative.code:         (scan-lists end 1 0)
          (character-offset end -1)
          (delete-character end)
          (delete-between-points start origin)
          (indent-region start end)))))
  
  (define-command paredit-splice-forward () ()
  