/[gcl]/gcl/ansi-tests/find.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26