cl-irregsexp-devel October 2009

cl-irregsexp-devel@common-lisp.net

2 participants
2 discussions

[cl-irregsexp-devel] Much better replace that does not copy the main string every replacement
by John Fremlin 06 Oct '09

06 Oct '09

Pushed major rewrite of all replace stuff to common-lisp.net. Changed my simple benchmarks from being several orders of magnitude slower than cl-ppcre to being much faster than cl-ppcre. (defun bench (n &key (convertor 'identity)) (let ((s (make-string n))) (loop for i below n by 2 do (setf (char s i) #\r)) (let ((s (funcall convertor s))) (time (cl-irregsexp:match-replace-all s ("r" "replaced")))))) (defun bench-no-replace (n &key (convertor 'identity)) (let ((s (make-string n))) (loop for i below n by 2 do (setf (char s i) #\r)) (let ((s (funcall convertor s))) (eq s (time (cl-irregsexp:match-replace-one s ("q" "replaced"))))))) (defun bench-cl-ppcre (n) (let ((s (make-string n))) (loop for i below n by 2 do (setf (char s i) #\r)) (time (cl-ppcre:regex-replace-all "r" s "replaced")))) (defun bench-cl-ppcre-no-replace (n) (let ((s (make-string n))) (loop for i below n by 2 do (setf (char s i) #\r)) (time (cl-ppcre:regex-replace-all "q" s "replaced")))) There is a worrying bug (in SBCL?) that blows up like this in the find-random test. Guess that should be isolated, but everything seems fine on ClozureCL so . . . failed AVER: (ZEROP (HASH-TABLE-COUNT #)) This is probably a bug in SBCL itself. (Alternatively, SBCL might have been corrupted by bad user code, e.g. by an undefined Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers from alien code or from unsafe Lisp code; or there might be a bug in the OS or hardware that SBCL is running on.) If it seems to be a bug in SBCL itself, the maintainers would like to know about it. Bug reports are welcome on the SBCL mailing lists, which you can find at <http://sbcl.sourceforge.net/>. [Condition of type SB-INT:BUG] Restarts: 0: [RETEST] Rerun the test #<IT.BESE.FIVEAM::TEST-CASE CL-IRREGSEXP::FIND-RANDOM {1004B5FD21}> 1: [IGNORE] Signal an exceptional test failure and abort the test #<IT.BESE.FIVEAM::TEST-CASE CL-IRREGSEXP::FIND-RANDOM {1004B5FD21}>. 2: [EXPLAIN] Ignore the rest of the tests and explain current results 3: [RETRY] Retry SLIME REPL evaluation request. 4: [ABORT] Return to SLIME's top level. 5: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" RUNNING {1003168441}>) Backtrace: 0: (SB-INT:BUG "~@<failed AVER: ~2I~_~A~:>")[:EXTERNAL] 1: (SB-IMPL::%FAILED-AVER (ZEROP (HASH-TABLE-COUNT (SB-C::CORE-OBJECT-PATCH-TABLE SB-C::OBJECT)))) 2: (SB-C::FIX-CORE-SOURCE-INFO #<SB-C::SOURCE-INFO > #<SB-C::CORE-OBJECT > #<FUNCTION (LAMBDA #) {10032A1089}>) 3: (SB-C::%COMPILE ..)[:EXTERNAL] [...]

1 0

[cl-irregsexp-devel] some smaller patches
by Attila Lendvai 01 Oct '09

01 Oct '09

please find them attached until our server hosting becomes more stable. meanwhile gitweb is available at: http://dwim.hu/gitweb/gitweb.cgi?p=cl-irregsexp;a=summary -- attila

2 4

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

cl-irregsexp-devel October 2009