anchor.diff:  (define-command paredit-insert-doublequote () ()
     (let ((p (current-point)))
       (cond
  -      ((eql (character-at p -1) #\\)
  +      ((lem-base::syntax-escape-point-p p 0)
          (insert-character p #\"))
  -      ((and (in-string-p p)
  -            (eql (character-at p) #\"))
  -       (forward-char))
  -      ((and (in-string-p p)
  -            (not (eql (character-at p -1) #\\)))
  -       (insert-character p #\\)
  -       (insert-character p #\"))
  +      ((in-string-p p)
  +       (if (eql (character-at p) #\")
  +           (forward-char)
  +           (insert-string p "\"" #\\)))
         (t (unless (or (bolp p)
                        (find (character-at p -1)
                              *non-space-following-chars*)
                        (sharp-literal-p #\P p))
              (insert-character p #\Space))
  -         (dolist (c '(#\" #\"))
  -           (insert-character p c))
  +         (insert-character p #\" 2)
            (unless (or (eolp p)
                        (find (character-at p)
                              *non-space-preceding-chars*))
  
positive.code:            :paredit-splice
             :paredit-splice-backward
             :paredit-splice-forward
             :*paredit-mode-keymap*))
  (in-package :lem-paredit-mode)
  
  
negative.code:   (:export :paredit-forward
             :paredit-backward
             :paredit-insert-paren
             :paredit-insert-doublequote
             :paredit-backward-delete
             :paredit-forward-delete
             :paredit-close-parenthesis
  