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 |
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 |
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 |
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 |
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 |
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) |