anchor.diff:  
   (defun backward-sexp-point (line-buffer point)
     (setq point (skip-space-backward line-buffer point))
  -  (skip-sexp-backward line-buffer point))
  +  (or (catch 'scan-error
  +        (skip-sexp-backward line-buffer point))
  +      point))
   
   (defun backward-sexp (arg key)
     (setq rl:*point*
  
positive.code:   (loop
      (decf point)
      (when (<= point 0)
        (return 0))
      (case (backward-syntax-type line-buffer point)
        ((:string-quote)
         (return (1- point))))))
  
negative.code: 
  (defun forward-sexp-point (line-buffer point)
    (setq point (skip-space-forward line-buffer point))
    (or (catch 'scan-error
          (skip-sexp-forward line-buffer point))
        point))
  
  (defun forward-sexp (arg key)
    (setq rl:*point*
  