anchor.diff:                          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-symbol (string name &key (start 0) (end (length string)) from-end)
     (loop :while (< start end)
  
positive.code:                         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)
  
negative.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)
  