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