the latest and greatest gnulib regexp has the following regressions vs
the previous (monolithic) version:
(defun re-test (pattern string)
(mapcar (lambda (match)
(and match (regexp:match-string string match)))
(multiple-value-list
(regexp:regexp-exec (regexp:regexp-compile pattern :extended t)
string))))
Form: (RE-TEST "(^)*" "-")
CORRECT: ("" "")
CLISP : ("" NIL)
Differ at position 1: "" vs NIL
CORRECT: ("")
CLISP : (NIL)
Form: (RE-TEST "([xyz])(-\\2)" "x-y")
CORRECT: NIL
CLISP : ERROR
REGEXP:REGEXP-COMPILE ("([xyz])(-\\2)"): "Invalid back reference"
Form: (RE-TEST "((.*)\\1)+" "xxxxxx")
CORRECT: NIL
CLISP : ERROR
REGEXP:REGEXP-COMPILE ("((.*)\\1)+"): "Invalid back reference"
Form: (RE-TEST "(.*)*\\1" "xx")
CORRECT: ("xx" "")
CLISP : ("xx" "x")
Differ at position 1: "" vs "x"
CORRECT: ("")
CLISP : ("x")
Form: (RE-TEST "(a*)*" "aaaa")
CORRECT: ("aaaa" "")
CLISP : ("aaaa" "aaaa")
Differ at position 1: "" vs "aaaa"
CORRECT: ("")
CLISP : ("aaaa")
Form: (RE-TEST "(a*)+" "aaaa")
CORRECT: ("aaaa" "")
CLISP : ("aaaa" "aaaa")
Differ at position 1: "" vs "aaaa"
CORRECT: ("")
CLISP : ("aaaa")
--
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.honestreporting.com> <http://www.jihadwatch.org/>
<http://www.memri.org/> <http://www.iris.org.il> <http://pmw.org.il/>
WHO ATE MY BREAKFAST PANTS?
_______________________________________________
bug-gnulib mailing list
bug-gnulib@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnulib
