add internal control *LOOK-AHEAD-FOR-SUFFIX*v2.1.0

This allows better performance for some scanning use-cases.

We also bump the minor version to 2.1.0.

1 files changed, 6 insertions, 1 deletions

diff --git a/api.lisp b/api.lisp
index 4c11c45..f440361 100644
--- a/api.lisp
+++ b/api.lisp
@@ -31,6 +31,10 @@
 
 (in-package :cl-ppcre)
 
+(defvar *look-ahead-for-suffix* t
+  "Controls whether scanners will optimistically look ahead for a
+  constant suffix of a regular expression, if there is one.")
+
 (defgeneric create-scanner (regex &key case-insensitive-mode
                                        multi-line-mode
                                        single-line-mode
@@ -120,7 +124,8 @@ modify its first argument \(but only if it's a parse tree)."))
                (end-string (end-string regex))
                ;; if we found a non-zero-length end-string we create an
                ;; efficient search function for it
-               (end-string-test (and end-string
+               (end-string-test (and *look-ahead-for-suffix*
+                                     end-string
                                      (plusp (len end-string))
                                      (if (= 1 (len end-string))
                                        (create-char-searcher