anchor.diff:                  ((syntax-fence-char-p c)
                    (%skip-fence-backward point))
                   (t
  -                 (character-offset point -1))))))
  +                 (multiple-value-bind (p win)
  +                     (%skip-block-comment-backward point)
  +                   (unless win
  +                     (return nil))
  +                   (unless p
  +                     (character-offset point -1))))))))
   
   (defun %form-offset-positive (point)
     (skip-space-and-comment-forward point)
  
positive.code:           (t
             (values nil t)))))
  
  (defun %skip-comment-backward (point)
    (multiple-value-bind (n pair)
        (syntax-end-block-comment-p point)
      (if n
  
negative.code:                                (return (values (move-point point curr) t))))
                              (t
                               (incf depth))))))
          (values nil t))))
  
  (defun %skip-comment-backward (point)
    (multiple-value-bind (p win)
        (%skip-block-comment-backward point)
      (cond ((not win)
             (values nil nil))
            ((null p)
             (let ((p (inline-line-comment-p point)))
               (if p
                   (values (move-point point p) t)
                   (values nil t))))
            (t
             (values point win)))))
  
  (defun skip-space-and-comment-forward (point)
    (with-point-syntax point
  