anchor.diff:      (prog1 (preceding-char)
         (next-char 1))))
   
  +(defun three-preceding-char ()
  +  (when (prev-char 2)
  +    (prog1 (preceding-char)
  +      (next-char 2))))
  +
   (define-key *global-keymap* "M-C-n" 'forward-list)
   (defcommand forward-list (&optional (n 1)) ("p")
     (dotimes (_ n t)
  
positive.code:       (do () (nil)
          (unless (next-char 1)
            (return))
          (unless (syntax-escape-char-p (preceding-char))
            (let ((c (following-char)))
              (cond
               ((char= c paren-char)
  
negative.code:       (do () (nil)
          (unless (prev-char 1)
            (return))
          (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)
  