Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC | revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | |
---|---|---|
# | Line 347 | Line 347 |
347 | 7) | 7) |
348 | ||
349 | (deftest count-string.4 | (deftest count-string.4 |
350 | (count #\1 "00101100011011000" :key #'(lambda (x) (if (eq x #\0) #\1 #\2))) | (count #\1 "00101100011011000" :key #'(lambda (x) (if (eql x #\0) #\1 #\2))) |
351 | 10) | 10) |
352 | ||
353 | (deftest count-string.5 | (deftest count-string.5 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |