anchor.diff:            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")
  +(defun raw-forward-sexp (n)
     (let ((skip-space
            (if (plusp n)
                #'skip-space-forward
  
positive.code: 
  (in-package :lem)
  
  (export '(forward-sexp
            backward-sexp
            scan-lists
            forward-list
  
negative.code:         (funcall skip-space)
          (unless (funcall skip-sexp)
            (point-set point)
            (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")
  