anchor.diff:                                 (return (values (move-point point curr) t))))
                               (t
                                (incf depth))))))
  -        (let ((p (inline-line-comment-p point)))
  -          (if p
  -              (values (move-point point p) t)
  -              (values nil t))))))
  +        (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
  
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: (defun %skip-list-backward (point depth)
    (loop :with paren-stack := '()
          :do
          (when (end-line-p point)
            (let ((p (inline-line-comment-p point)))
              (when p (move-point point p))))
          (when (start-buffer-p point)
            (return nil))
          (let ((c (character-at point -1))
  