anchor.diff:          (scan-lists end 1 0)
           (character-offset end -1)
           (delete-character start)
  -        (kill-region origin end)
  +        (delete-between-points origin end)
           (indent-region start end)))))
   
   (define-command paredit-raise () ()
  
positive.code:       (with-point ((yank-point p))
          (form-offset yank-point -1)
          (syntax-skip-expr-prefix-backward yank-point)
          (move-point (current-point) yank-point)
          (skip-whitespace-backward yank-point)
          (kill-ring-new)
          (with-point ((q p))
            (character-offset q 1)
            (kill-region p q)
            (move-point (current-point) yank-point)
            (yank)
            (move-point (current-point) origin)
            (indent-region origin p))))))
  
  (define-command paredit-splice () ()
    (with-point ((origin (current-point) :right-inserting)
  
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 () ()
  