anchor.diff:  (defun syntax-end-block-comment-p (c1 c2)
     (syntax-start-block-comment-p c2 c1))
   
  +(defvar *syntax-symbol-tov-list* nil)
  +
   (defun syntax-scan-window (window)
     (let* ((buffer (window-buffer window))
            (start-linum (window-vtop-linum window))
  
positive.code:                                   (1+ i2)
                                    *comment-color*)
                 (return (values i2 t))))))))
  
  (defvar *syntax-symbol-tov-list* nil)
  
  (defun syntax-update-symbol-tov ()
    (setq *syntax-symbol-tov-list*
  
negative.code:                                (line-in-string-p prev))))
           (in-comment-p (and prev
                              (or (line-start-comment-p prev)
                                  (line-in-comment-p prev))))
           (*syntax-symbol-tov-list*))
      (do ((line line (line-next line))
           (linum start-linum (1+ linum)))
          ((or (null line)
  