anchor.diff:              (not (eql (character-at p -1) #\\)))
          (insert-character p #\\)
          (insert-character p #\"))
  -      (t (unless (or (eql (character-at p -1) #\Space)
  -                     (eql (character-at p -1) #\()
  -                     (bolp p)
  -                     ;; Pathname literal
  -                     (and (or (eql (character-at p -1) #\p)
  -                              (eql (character-at p -1) #\P))
  -                          (eql (character-at p -2) #\#)))
  +      (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)
  -                     (eql (character-at p) #\Space)
  -                     (eql (character-at p) #\)))
  +                     (find (character-at p)
  +                           *non-space-preceding-chars*))
              (insert-character p #\Space)
              (character-offset p -1))
            (character-offset p -1)))))
  
positive.code:         (>= (point-charpos point)
              (1- len)))))
  
  (define-command paredit-insert-paren () ()
    (let ((p (current-point)))
      (when (in-string-or-comment-p p)
  
negative.code:     (when (eql (character-at p -1) #\\)
        (insert-character p #\()
        (return-from paredit-insert-paren))
      (unless (or (bolp p)
                  (find (character-at p -1)
                        *non-space-following-chars*)
                  (eql (character-at p -1) #\#)
                  (and (eql (character-at p -1) #\@)
                       (eql (character-at p -2) #\,))
                  (sharp-literal-p #\' p)
                  (sharp-literal-p #\. p)
                  (sharp-literal-p #\S p)
                  (sharp-literal-p #\C p)
                  (sharp-literal-p #\+ p)
                  (sharp-literal-p #\- p)
                  (sharp-n-literal-p #\A p)
                  (sharp-n-literal-p #\= p))
        (insert-character p #\Space))
      (dolist (c '(#\( #\)))
        (insert-character p c))
  