--- 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)))))))
(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)))
(gethash char hash-table)))
cl-ppcre-devel site list
I'll be out of town until Thursday, but I'll apply this when I'm back home.
> 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.