anchor.diff:        (return-from paredit-close-parenthesis))
       (case (character-at p)
         (#\)
  -       (if (eql (character-at p -1) #\\)
  +       (if (lem-base::syntax-escape-point-p p 0)
              (insert-character p #\))
              (forward-char)))
         (otherwise
  
positive.code: (define-command paredit-insert-doublequote () ()
    (let ((p (current-point)))
      (cond
        ((eql (character-at p -1) #\\)
         (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 #\"))
        (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))
           (unless (or (eolp p)
                       (find (character-at p)
                             *non-space-preceding-chars*))
  
negative.code:     (line-end line-end)
      (skip-whitespace-forward kill-end t)
      (cond
        ;; Only whitespaces and maybe a line comment after point
        ((or (point<= line-end kill-end)
             (eql (character-at kill-end) #\;))
         (kill-line 1))
        ;; Inside a string or comment - kill up to end of line
        ;; or end of string or comment
        ((in-string-or-comment-p origin)
         (loop while (and (point>= line-end kill-end)
                          (in-string-or-comment-p kill-end))
               do (character-offset kill-end 1))
         (unless (in-string-or-comment-p kill-end)
           (case (character-at kill-end -1)
             ((#\")
              (character-offset kill-end -1))
             ((#\#) ; doublechecking that the char before is #\|
              (if (eql (character-at kill-end -2) #\|)
                  (character-offset kill-end -2)))))
         (kill-region origin kill-end))
        (t
         (loop while (and (point> line-end kill-end)
  