Thanks Peter,
I'll be out of town until Thursday, but I'll apply this when I'm back home.
Edi.
On Sat, Sep 5, 2009 at 5:32 PM, Peter Seibelpeter@gigamonkeys.com wrote:
Unless I misunderstand something, this patch fixes a small error probably introduced by a bit of cut-n-paste:
--- chartest.lisp~ 2009-08-21 21:06:53.000000000 -0700 +++ chartest.lisp 2009-09-05 06:51:12.000000000 -0700 @@ -88,7 +88,7 @@ (not (in-charset-p char charset))))))) ((:hash-table :hash-table*) (let ((hash-table (create-hash-table-from-test-function test-function start end)))
- (cond ((or (eq kind :charset)
- (cond ((or (eq kind :hash-table)
(<= (hash-table-count hash-table) (ceiling (- end start) 2))) (lambda (char) (gethash char hash-table)))
-- Peter Seibel http://www.codersatwork.com/ http://www.gigamonkeys.com/blog/
cl-ppcre-devel site list cl-ppcre-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-ppcre-devel