/[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.9 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.10 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 638  Line 638 
638              :from-end t)              :from-end t)
639    4)    4)
640    
641    (deftest position.order.1
642      (let ((i 0) a b c d e f g)
643        (values
644         (position
645          (progn (setf a (incf i)) 0)
646          (progn (setf b (incf i)) '(3 1 8 2 1 2 3 4))
647          :from-end (setf c (incf i))
648          :start (progn (setf d (incf i)) 1)
649          :end (progn (setf e (incf i)) 6)
650          :key (progn (setf f (incf i)) #'1-)
651          :test (progn (setf g (incf i)) #'=)
652          )
653         i a b c d e f g))
654      4 7 1 2 3 4 5 6 7)
655    
656    (deftest position.order.2
657      (let ((i 0) a b c d e f g)
658        (values
659         (position
660          (progn (setf a (incf i)) 0)
661          (progn (setf b (incf i)) '(3 1 8 2 1 2 3 4))
662          :test-not (progn (setf c (incf i)) #'/=)
663          :key (progn (setf d (incf i)) #'1-)
664          :end (progn (setf e (incf i)) 6)
665          :start (progn (setf f (incf i)) 1)
666          :from-end (setf g (incf i))
667          )
668         i a b c d e f g))
669      4 7 1 2 3 4 5 6 7)
670    
671  ;;; Keyword tests  ;;; Keyword tests
672    
673  (deftest position.allow-other-keys.1  (deftest position.allow-other-keys.1

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

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