anchor.diff:      (dotimes (_ (abs n) t)
         (unless (skip-list depth dir)
           (point-set point)
  +        (minibuf-print "scan error")
           (return)))))
   
   (define-key *global-keymap* (kbd "M-C-n") 'forward-list)
  
positive.code:     ((:symbol :expr-prefix :escape)
       (skip-symbol-backward))
      ((:closed-paren)
       (skip-list-backward 0)
       (loop while (eq :expr-prefix (sexp-get-syntax-type nil))
         do (unless (prev-char 1)
              (return))
         finally (return t)))
      ((:open-paren)
       nil)
      ((:string-quote)
  
negative.code:     (unless (if dir
                  (skip-space-forward)
                  (skip-space-backward))
        (return nil))
      (let ((type (sexp-get-syntax-type dir)))
        (case type
          ((:open-paren :closed-paren)
  