anchor.diff:  
   (defun in-string-p (point)
     (let ((state (syntax-ppss point)))
  -    (member (parser-state-type state) '(:block-string :string))))
  +    (member (pps-state-type state) '(:block-string :string))))
   
   (defun in-comment-p (point)
     (let ((state (syntax-ppss point)))
  -    (member (parser-state-type state) '(:line-comment :block-comment))))
  +    (member (pps-state-type state) '(:line-comment :block-comment))))
   
   (defun in-string-or-comment-p (point)
     (let ((state (syntax-ppss point)))
  -    (member (parser-state-type state)
  +    (member (pps-state-type state)
               '(:block-string
                 :string
                 :line-comment
  
positive.code: (defun parse-partial-sexp (from to &optional state comment-stop)
    (assert (eq (point-buffer from)
                (point-buffer to)))
    (unless state (setf state (make-parser-state)))
    (with-point-syntax from
      (let ((p from)
            (type (parser-state-type state))
            (token-start-point (parser-state-token-start-point state))
            (end-char (parser-state-end-char state))
            (block-comment-depth (parser-state-block-comment-depth state))
            (block-pair (parser-state-block-pair state))
            (paren-stack (parser-state-paren-stack state)))
        (flet ((update-token-start-point (p)
                 (if token-start-point
                     (move-point token-start-point p)
  
negative.code: 
  (defun maybe-beginning-of-string (point)
    (let ((state (syntax-ppss point)))
      (when (member (pps-state-type state) '(:block-string :string))
        (move-point point (pps-state-token-start-point state)))))
  
  (defun maybe-beginning-of-comment (point)
    (let ((state (syntax-ppss point)))
      (when (member (pps-state-type state) '(:line-comment :block-comment))
        (move-point point (pps-state-token-start-point state)))))
  
  (defun maybe-beginning-of-string-or-comment (point)
    (let ((state (syntax-ppss point)))
      (when (member (pps-state-type state)
                    '(:block-string
                      :string
                      :line-comment
                      :block-comment))
        (move-point point (pps-state-token-start-point state)))))
  