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:         (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-b") 'backward-sexp)
  (define-command backward-sexp (&optional (n 1) no-errors) ("p")
  
negative.code: 
  (in-package :lem)
  
  (export '(raw-forward-sexp
            forward-sexp
            backward-sexp
            scan-lists
            forward-list
  