[cl-ppcre-devel] Small chartest.lisp patch

2 views
Skip to first unread message

Peter Seibel

unread,
Sep 5, 2009, 11:32:55 AM9/5/09
to cl-ppcr...@common-lisp.net
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-ppcr...@common-lisp.net
http://common-lisp.net/mailman/listinfo/cl-ppcre-devel

Edi Weitz

unread,
Sep 5, 2009, 7:34:10 PM9/5/09
to General interest list about cl-ppcre and cl-unicode
Thanks Peter,

I'll be out of town until Thursday, but I'll apply this when I'm back home.

Edi.

Edi Weitz

unread,
Sep 17, 2009, 3:25:22 PM9/17/09
to General interest list about cl-ppcre and cl-unicode
On Sun, Sep 6, 2009 at 1:34 AM, Edi Weitz <e...@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.

Reply all
Reply to author
Forward
0 new messages