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

Diff of /gcl/ansi-tests/substitute.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 966  Line 966 
966      result)      result)
967    #*01111)    #*01111)
968    
969    (defharmless substitute.test-and-test-not.1
970      (substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
971    
972    (defharmless substitute.test-and-test-not.2
973      (substitute 'b 'a (list 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
974    
975    (defharmless substitute.test-and-test-not.3
976      (substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test #'eql :test-not #'eql))
977    
978    (defharmless substitute.test-and-test-not.4
979      (substitute 'b 'a (vector 'a 'b 'c 'd 'a 'b) :test-not #'eql :test #'eql))
980    
981    (defharmless substitute.test-and-test-not.5
982      (substitute #\b #\a (copy-seq "abcdab") :test #'eql :test-not #'eql))
983    
984    (defharmless substitute.test-and-test-not.6
985      (substitute #\b #\a (copy-seq "abcdab") :test-not #'eql :test #'eql))
986    
987    (defharmless substitute.test-and-test-not.7
988      (substitute 1 0 (copy-seq #*001101001) :test #'eql :test-not #'eql))
989    
990    (defharmless substitute.test-and-test-not.8
991      (substitute 0 1 (copy-seq #*1100110101) :test-not #'eql :test #'eql))
992    
993    
994  (deftest substitute.order.1  (deftest substitute.order.1
995    (let ((i 0) a b c d e f g h)    (let ((i 0) a b c d e f g h)
996      (values      (values

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