Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Sat Jan 17 13:31:44 2004 UTC | revision 1.11 by pfdietz, Thu Sep 23 13:28:54 2004 UTC | |
---|---|---|
# | Line 507 | Line 507 |
507 | )) | )) |
508 | #\2 #\4 #\1 #\5) | #\2 #\4 #\1 #\5) |
509 | ||
510 | (deftest find-if-string.20 | |
511 | (do-special-strings | |
512 | (s "123a456" nil) | |
513 | (assert (eql (find-if #'alpha-char-p s) #\a))) | |
514 | nil) | |
515 | ||
516 | ;;; Keyword tests | ;;; Keyword tests |
517 | ||
518 | (deftest find-if.allow-other-keys.1 | (deftest find-if.allow-other-keys.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |