/[gcl]/gcl/ansi-tests/cons-test-23.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-23.lsp

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

revision 1.9 by pfdietz, Mon Feb 10 03:09:37 2003 UTC revision 1.10 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 173  Line 173 
173    
174  ;;; Order of argument evaluation tests  ;;; Order of argument evaluation tests
175    
176  (deftest set-exclusive-or.19  (deftest set-exclusive-or.order.1
177    (let ((i 0) x y)    (let ((i 0) x y)
178      (values      (values
179       (sort       (sort
# Line 185  Line 185 
185       i x y))       i x y))
186    (2 4 6 10) 2 1 2)    (2 4 6 10) 2 1 2)
187    
188  (deftest set-exclusive-or.20  (deftest set-exclusive-or.order.2
189    (let ((i 0) x y z)    (let ((i 0) x y z)
190      (values      (values
191       (sort       (sort
# Line 199  Line 199 
199       i x y z))       i x y z))
200    (2 4 6 10) 3 1 2 3)    (2 4 6 10) 3 1 2 3)
201    
202  (deftest set-exclusive-or.21  (deftest set-exclusive-or.order.3
203    (let ((i 0) x y z w)    (let ((i 0) x y z w)
204      (values      (values
205       (sort       (sort
# Line 214  Line 214 
214       i x y z w))       i x y z w))
215    (2 4 6 10) 4 1 2 3 4)    (2 4 6 10) 4 1 2 3 4)
216    
217  (deftest set-exclusive-or.22  (deftest set-exclusive-or.order.4
218    (let ((i 0) x y z w)    (let ((i 0) x y z w)
219      (values      (values
220       (sort       (sort
# Line 229  Line 229 
229       i x y z w))       i x y z w))
230    (2 4 6 10) 4 1 2 3 4)    (2 4 6 10) 4 1 2 3 4)
231    
232  (deftest set-exclusive-or.23  (deftest set-exclusive-or.order.5
233    (let ((i 0) x y z w)    (let ((i 0) x y z w)
234      (values      (values
235       (sort       (sort
# Line 498  Line 498 
498    
499  ;;; Order of argument evaluation tests  ;;; Order of argument evaluation tests
500    
501  (deftest nset-exclusive-or.19  (deftest nset-exclusive-or.order.1
502    (let ((i 0) x y)    (let ((i 0) x y)
503      (values      (values
504       (sort       (sort
505        (nset-exclusive-or (progn (setf x (incf i))        (nset-exclusive-or (progn (setf x (incf i))
506                                 (list 1 2 3 4))                                  (list 1 2 3 4))
507                          (progn (setf y (incf i))                           (progn (setf y (incf i))
508                                 (list 1 3 6 10)))                                  (list 1 3 6 10)))
509        #'<)        #'<)
510       i x y))       i x y))
511    (2 4 6 10) 2 1 2)    (2 4 6 10) 2 1 2)
512    
513  (deftest nset-exclusive-or.20  (deftest nset-exclusive-or.order.2
514    (let ((i 0) x y z)    (let ((i 0) x y z)
515      (values      (values
516       (sort       (sort
517        (nset-exclusive-or (progn (setf x (incf i))        (nset-exclusive-or (progn (setf x (incf i))
518                                 (list 1 2 3 4))                                  (list 1 2 3 4))
519                          (progn (setf y (incf i))                           (progn (setf y (incf i))
520                                 (list 1 3 6 10))                                  (list 1 3 6 10))
521                          :test (progn (setf z (incf i))                           :test (progn (setf z (incf i))
522                                       #'eql))                                        #'eql))
523        #'<)        #'<)
524       i x y z))       i x y z))
525    (2 4 6 10) 3 1 2 3)    (2 4 6 10) 3 1 2 3)
526    
527  (deftest nset-exclusive-or.21  (deftest nset-exclusive-or.order.3
528    (let ((i 0) x y z w)    (let ((i 0) x y z w)
529      (values      (values
530       (sort       (sort
531        (nset-exclusive-or (progn (setf x (incf i))        (nset-exclusive-or (progn (setf x (incf i))
532                                 (list 1 2 3 4))                                  (list 1 2 3 4))
533                          (progn (setf y (incf i))                           (progn (setf y (incf i))
534                                 (list 1 3 6 10))                                  (list 1 3 6 10))
535                          :test (progn (setf z (incf i))                           :test (progn (setf z (incf i))
536                                       #'eql)                                        #'eql)
537                          :key (progn (setf w (incf i)) nil))                           :key (progn (setf w (incf i)) nil))
538        #'<)        #'<)
539       i x y z w))       i x y z w))
540    (2 4 6 10) 4 1 2 3 4)    (2 4 6 10) 4 1 2 3 4)
541    
542  (deftest nset-exclusive-or.22  (deftest nset-exclusive-or.order.4
543    (let ((i 0) x y z w)    (let ((i 0) x y z w)
544      (values      (values
545       (sort       (sort
546        (nset-exclusive-or (progn (setf x (incf i))        (nset-exclusive-or (progn (setf x (incf i))
547                                 (list 1 2 3 4))                                  (list 1 2 3 4))
548                          (progn (setf y (incf i))                           (progn (setf y (incf i))
549                                 (list 1 3 6 10))                                  (list 1 3 6 10))
550                          :key (progn (setf z (incf i)) nil)                           :key (progn (setf z (incf i)) nil)
551                          :test (progn (setf w (incf i))                           :test (progn (setf w (incf i))
552                                       #'eql))                                        #'eql))
553        #'<)        #'<)
554       i x y z w))       i x y z w))
555    (2 4 6 10) 4 1 2 3 4)    (2 4 6 10) 4 1 2 3 4)
556    
557  (deftest nset-exclusive-or.23  (deftest nset-exclusive-or.order.5
558    (let ((i 0) x y z w)    (let ((i 0) x y z w)
559      (values      (values
560       (sort       (sort
561        (nset-exclusive-or (progn (setf x (incf i))        (nset-exclusive-or (progn (setf x (incf i))
562                                 (list 1 2 3 4))                                  (list 1 2 3 4))
563                          (progn (setf y (incf i))                           (progn (setf y (incf i))
564                                 (list 1 3 6 10))                                  (list 1 3 6 10))
565                          :key (progn (setf z (incf i)) nil)                           :key (progn (setf z (incf i)) nil)
566                          :key (progn (setf w (incf i))                           :key (progn (setf w (incf i))
567                                      (complement #'eql)))                                       (complement #'eql)))
568        #'<)        #'<)
569       i x y z w))       i x y z w))
570    (2 4 6 10) 4 1 2 3 4)    (2 4 6 10) 4 1 2 3 4)

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