anchor.diff:           (if (plusp n)
                #'skip-sexp-forward
                #'skip-sexp-backward)))
  -    (dotimes (_ (abs n) t)
  -      (unless (and (funcall skip-space)
  -                   (funcall skip-sexp))
  -        (return nil)))))
  +    (let ((point (point)))
  +      (dotimes (_ (abs n) t)
  +        (unless (and (funcall skip-space)
  +                     (funcall skip-sexp))
  +          (point-set point)
  +          (minibuf-print "scan error")
  +          (return nil))))))
   
   (define-key *global-keymap* (kbd "M-C-b") 'backward-sexp)
   (define-command backward-sexp (&optional (n 1)) ("p")
  
positive.code:     (unless (if dir
                  (skip-space-forward)
                  (skip-space-backward))
        (return))
      (let ((type (sexp-get-syntax-type dir)))
        (case type
          ((:open-paren :closed-paren)
  
negative.code:     (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)
  