From peter at gigamonkeys.com Sat Sep 5 15:32:55 2009 From: peter at gigamonkeys.com (Peter Seibel) Date: Sat, 5 Sep 2009 08:32:55 -0700 Subject: [cl-ppcre-devel] Small chartest.lisp patch Message-ID: <40e4e7e50909050832i7a11ffbcm9ea1d4939befe4de@mail.gmail.com> 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/ From edi at agharta.de Sat Sep 5 23:34:10 2009 From: edi at agharta.de (Edi Weitz) Date: Sun, 6 Sep 2009 01:34:10 +0200 Subject: [cl-ppcre-devel] Small chartest.lisp patch In-Reply-To: <40e4e7e50909050832i7a11ffbcm9ea1d4939befe4de@mail.gmail.com> References: <40e4e7e50909050832i7a11ffbcm9ea1d4939befe4de@mail.gmail.com> Message-ID: 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 Seibel 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 at common-lisp.net > http://common-lisp.net/mailman/listinfo/cl-ppcre-devel > > From edi at agharta.de Thu Sep 17 19:25:22 2009 From: edi at agharta.de (Edi Weitz) Date: Thu, 17 Sep 2009 21:25:22 +0200 Subject: [cl-ppcre-devel] Small chartest.lisp patch In-Reply-To: References: <40e4e7e50909050832i7a11ffbcm9ea1d4939befe4de@mail.gmail.com> Message-ID: On Sun, Sep 6, 2009 at 1:34 AM, Edi Weitz wrote: > I'll be out of town until Thursday, but I'll apply this when I'm back home. OK, took a while longer, as usual, but the new version is online now. Thanks again, Edi.