anchor.diff:      (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))
  -      ((in-string-p origin)
  +      ;; 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-p kill-end))
  +                        (in-string-or-comment-p kill-end))
                do (character-offset kill-end 1))
  -       (unless (in-string-p kill-end)
  -         (character-offset kill-end -1))
  -       (kill-region origin kill-end))
  -      ((in-comment-p origin)
  -       (loop while (and (point>= line-end kill-end)
  -                        (not (and (eql (character-at kill-end) #\|)
  -                                  (eql (character-at kill-end 1) #\#))))
  -             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)
  
positive.code:                 (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 () ()
  
negative.code:            :paredit-splice
             :paredit-splice-backward
             :paredit-splice-forward
             :paredit-raise
             :*paredit-mode-keymap*))
  (in-package :lem-paredit-mode)
  
  