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

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

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

revision 1.13 by pfdietz, Sat Jun 14 10:57:44 2003 UTC revision 1.14 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 670  Line 670 
670    (position #\m "adfmpz" :test-not #'char>=)    (position #\m "adfmpz" :test-not #'char>=)
671    4)    4)
672    
673    (defharmless position.test-and-test-not.1
674      (position 'b '(a b c d) :test #'eql :test-not #'eql))
675    
676    (defharmless position.test-and-test-not.2
677      (position 'b '(a b c d) :test-not #'eql :test #'eql))
678    
679    (defharmless position.test-and-test-not.3
680      (position 'b #(a b c d) :test #'eql :test-not #'eql))
681    
682    (defharmless position.test-and-test-not.4
683      (position 'b #(a b c d) :test-not #'eql :test #'eql))
684    
685    (defharmless position.test-and-test-not.5
686      (position #\b "abcd" :test #'eql :test-not #'eql))
687    
688    (defharmless position.test-and-test-not.6
689      (position #\b "abcd" :test-not #'eql :test #'eql))
690    
691    (defharmless position.test-and-test-not.7
692      (position 1 #*001010010 :test #'eql :test-not #'eql))
693    
694    (defharmless position.test-and-test-not.8
695      (position 0 #*1110010110111 :test-not #'eql :test #'eql))
696    
697  (deftest position.order.1  (deftest position.order.1
698    (let ((i 0) a b c d e f g)    (let ((i 0) a b c d e f g)
699      (values      (values

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

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