Parent Directory | Revision Log | Patch
revision 1.14 by pfdietz, Sat Jan 17 13:31:44 2004 UTC | revision 1.15 by pfdietz, Thu Sep 23 13:28:54 2004 UTC | |
---|---|---|
# | Line 781 | Line 781 |
781 | (find #\k "abcdmnop" :test-not #'char>=) | (find #\k "abcdmnop" :test-not #'char>=) |
782 | #\m) | #\m) |
783 | ||
784 | (deftest find-string.28 | |
785 | (do-special-strings | |
786 | (s "abcdef" nil) | |
787 | (assert (char= (find #\c s :test #'char<) #\d))) | |
788 | nil) | |
789 | ||
790 | ;;; Test & test not | ;;; Test & test not |
791 | ||
792 | (defharmless find-list.test-and-test-not.1 | (defharmless find-list.test-and-test-not.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |