/[gcl]/gcl/ansi-tests/search-list.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/search-list.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pfdietz, Mon Jun 16 11:38:15 2003 UTC revision 1.9 by pfdietz, Mon Jun 16 23:05:14 2003 UTC
# Line 139  Line 139 
139  (deftest search-list.15  (deftest search-list.15
140    (let ((pat '(10))    (let ((pat '(10))
141          (target '(1 4 6 10 15 20)))          (target '(1 4 6 10 15 20)))
142      (search pat target :test #'>))      (search pat target :test #'<))
143    4)    4)
144    
145  (deftest search-list.16  (deftest search-list.16
146    (let ((pat '(10))    (let ((pat '(10))
147          (target '(1 4 6 10 15 20)))          (target '(1 4 6 10 15 20)))
148      (search pat target :test-not #'<=))      (search pat target :test-not #'>=))
149    4)    4)
150    
151  (defharmless search.test-and-test-not.1  (defharmless search.test-and-test-not.1

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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