[cl-ppcre-devel] Small chartest.lisp patch
Edi Weitz
edi at agharta.de
Sat Sep 5 23:34:10 UTC 2009
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
>
>
More information about the Cl-ppcre-devel
mailing list