anchor.diff:  (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)))
  +  (unless state (setf state (make-pps-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)))
  +          (type (pps-state-type state))
  +          (token-start-point (pps-state-token-start-point state))
  +          (end-char (pps-state-end-char state))
  +          (block-comment-depth (pps-state-block-comment-depth state))
  +          (block-pair (pps-state-block-pair state))
  +          (paren-stack (pps-state-paren-stack state)))
         (flet ((update-token-start-point (p)
                  (if token-start-point
                      (move-point token-start-point p)
  
positive.code: 
  (defun in-string-p (point)
    (let ((state (syntax-ppss point)))
      (member (parser-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))))
  
  (defun in-string-or-comment-p (point)
    (let ((state (syntax-ppss point)))
      (member (parser-state-type state)
              '(:block-string
                :string
                :line-comment
  
negative.code:           skip-symbol-forward
            skip-symbol-backward
            symbol-string-at-point
            make-pps-state
            pps-state-state-type
            pps-state-token-start-point
            pps-state-end-char
            pps-state-block-comment-depth
            pps-state-block-pair
            pps-state-paren-stack
            parse-partial-sexp
            syntax-ppss
            in-string-p
  