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: <b56421a00909051634j1442c672r33ff76e8d41b3519@mail.gmail.com>

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<peter at 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 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: <b56421a00909051634j1442c672r33ff76e8d41b3519@mail.gmail.com>
References: <40e4e7e50909050832i7a11ffbcm9ea1d4939befe4de@mail.gmail.com>
	<b56421a00909051634j1442c672r33ff76e8d41b3519@mail.gmail.com>
Message-ID: <b56421a00909171225g3bc7679dnd45bad80977b4919@mail.gmail.com>

On Sun, Sep 6, 2009 at 1:34 AM, Edi Weitz <edi at agharta.de> 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.