anchor.diff:          (funcall skip-space)
           (unless (funcall skip-sexp)
             (point-set point)
  -          (unless no-errors
  -            (minibuf-print "scan error"))
             (return nil))))))
  +
  +(define-key *global-keymap* (kbd "M-C-f") 'forward-sexp)
  +(define-command forward-sexp (&optional (n 1) no-errors) ("p")
  +  (let* ((f (buffer-get (window-buffer) :forward-sexp-function))
  +         (res (if f
  +                  (funcall f n)
  +                  (raw-forward-sexp n))))
  +    (or res
  +        (if no-errors
  +            nil
  +            (progn
  +              (minibuf-print "scan error")
  +              nil)))))
   
   (define-key *global-keymap* (kbd "M-C-b") 'backward-sexp)
   (define-command backward-sexp (&optional (n 1) no-errors) ("p")
  
positive.code:           finally (return t))
          (syntax-skip-expr-prefix-backward))))
  
  (define-key *global-keymap* (kbd "M-C-f") 'forward-sexp)
  (define-command forward-sexp (&optional (n 1) no-errors) ("p")
    (let ((skip-space
           (if (plusp n)
               #'skip-space-forward
  
negative.code: 
  (in-package :lem)
  
  (export '(raw-forward-sexp
            forward-sexp
            backward-sexp
            scan-lists
            forward-list
  