anchor.diff:        (do () (nil)
           (unless (prev-char 1)
             (return))
  -        (unless (syntax-escape-char-p (two-preceding-char))
  +        (unless (and (syntax-escape-char-p (two-preceding-char))
  +                     (not (syntax-escape-char-p (three-preceding-char))))
             (let ((c (preceding-char)))
               (cond
                ((char= c paren-char)
  
positive.code:     (do () (nil)
        (unless (prev-char 1)
          (return))
        (when (and
               (not (syntax-escape-char-p (two-preceding-char)))
               (char= (preceding-char) goal-char))
          (prev-char 1)
          (return t)))))
  
  (defun skip-symbol-forward ()
    (do () (nil)
      (unless (next-char 1)
        (return))
      (let ((c (following-char)))
        (unless (or (syntax-symbol-char-p c)
                    (syntax-word-char-p c))
          (return t)))))
  
  (defun skip-symbol-backward ()
    (do () (nil)
      (unless (prev-char 1)
        (return))
      (let ((c (preceding-char)))
        (unless (or (syntax-symbol-char-p c)
                    (syntax-word-char-p c))
          (return t)))))
  
  (define-key *global-keymap* "M-C-f" 'forward-sexp)
  (defcommand forward-sexp (n) ("p")
  
negative.code:       (do () (nil)
          (unless (next-char 1)
            (return))
          (unless (and (syntax-escape-char-p (preceding-char))
                       (not (syntax-escape-char-p (two-preceding-char))))
            (let ((c (following-char)))
              (cond
               ((char= c paren-char)
  