anchor.diff:                       reg-starts
                        reg-ends))))))
   
  +(define-compiler-macro looking-at (&whole form &environment env point regex)
  +  (if (constantp regex env)
  +      `(looking-at ,point (load-time-value (ppcre:create-scanner ,regex)))
  +      form))
  +
   (defun match-string-at (point string &optional across-line-p)
     (let ((overp
            (> (+ (point-charpos point) (length string))
  
positive.code:                        (character-offset (line-start point) charpos))
                       (search-backward-endp-function limit-point))))))
  
  (defun search-forward-regexp (point regex &optional limit-point)
    (let ((scanner (ignore-errors (ppcre:create-scanner regex)))
          (string)
  
negative.code:                         reg-starts
                          reg-ends))
              t)))))
  
  (define-compiler-macro search-backward-regexp (&whole form &environment env
                                                        point regex &optional limit-point)
    (if (constantp form env)
        `(search-backward-regexp ,point (load-time-value (ppcre:create-scanner ,regex))
                                 ,limit-point)
        form))
  
  (defun search-backward-regexp (point regex &optional limit-point)
    (let ((scanner (ignore-errors (ppcre:create-scanner regex)))
  