anchor.diff:  
    
  -(defstruct parser-state
  +(defstruct pps-state
     type
     token-start-point
     end-char
  
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
  