anchor.diff:             :paredit-backward-delete
              :paredit-forward-delete
              :paredit-close-parenthesis
  +           :paredit-kill
              :paredit-slurp
              :paredit-barf
              :paredit-splice
  
positive.code:       ((point<= line-end kill-end)
         (kill-line 1))
        (t
         (unless (scan-lists par-close 1 1 t line-end)
           (setf par-close line-end))
         (loop while (and (point> (if (point< line-end
                                              par-close)
                                      line-end
                                      par-close)
                                  kill-end)
                          (not (eql #\) (character-at kill-end))))
               do (form-offset kill-end 1))
         (kill-region origin kill-end)))))
  
  (define-command paredit-slurp () ()
  
negative.code: (define-command paredit-kill () ()
    (with-point ((origin (current-point))
                 (line-end (current-point))
                 (kill-end (current-point)))
      (line-end line-end)
      (skip-space-and-comment-forward kill-end)
  