anchor.diff:    (with-point ((q p))
       (skip-whitespace-backward q)
       (syntax-open-paren-char-p (character-at q))))
  +
  +(define-command paredit-forward (&optional (n 1)) ("p")
  +  (forward-sexp n))
  +
  +(define-command paredit-backward (&optional (n 1)) ("p")
  +  (backward-sexp n))
   
   (define-command paredit-insert-paren () ()
     (let ((p (current-point)))
  
positive.code:         (delete-character end)
          (indent-region start end)))))
  
  (loop for (k . f) in '(("(" . paredit-insert-paren)
                         (")" . paredit-close-parenthesis)
                         (delete-previous-char . paredit-backward-delete)
                         ("C-Right" . paredit-slurp)
  
negative.code:         :lem
          :lem-vi-mode.word)
    (:export :paredit-mode
             :paredit-forward
             :paredit-backward
             :paredit-insert-paren
             :paredit-backward-delete
             :paredit-close-parenthesis
  