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

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

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

revision 1.8 by pfdietz, Sat Feb 22 01:15:59 2003 UTC revision 1.9 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 722  Line 722 
722      result)      result)
723    #*0101011111)    #*0101011111)
724    
725    (defharmless nsubstitute.test-and-test-not.1
726      (nsubstitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
727    
728    (defharmless nsubstitute.test-and-test-not.2
729      (nsubstitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
730    
731    (defharmless nsubstitute.test-and-test-not.3
732      (nsubstitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
733    
734    (defharmless nsubstitute.test-and-test-not.4
735      (nsubstitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
736    
737    (defharmless nsubstitute.test-and-test-not.5
738      (nsubstitute #\b #\a (copy-seq "abcdab") :test #'eql :test-not #'eql))
739    
740    (defharmless nsubstitute.test-and-test-not.6
741      (nsubstitute #\b #\a (copy-seq "abcdab") :test-not #'eql :test #'eql))
742    
743    (defharmless nsubstitute.test-and-test-not.7
744      (nsubstitute 1 0 (copy-seq #*001101001) :test #'eql :test-not #'eql))
745    
746    (defharmless nsubstitute.test-and-test-not.8
747      (nsubstitute 0 1 (copy-seq #*1100110101) :test-not #'eql :test #'eql))
748    
749    
750  ;;;; additional tests  ;;;; additional tests
751    
752  (deftest nsubstitute-list.24  (deftest nsubstitute-list.24

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