128 |
|
|
129 |
;;; Order of argument evaluation tests |
;;; Order of argument evaluation tests |
130 |
|
|
131 |
(deftest subsetp.16 |
(deftest subsetp.order.1 |
132 |
(let ((i 0) x y) |
(let ((i 0) x y) |
133 |
(values |
(values |
134 |
(notnot (subsetp (progn (setf x (incf i)) |
(notnot (subsetp (progn (setf x (incf i)) |
138 |
i x y)) |
i x y)) |
139 |
t 2 1 2) |
t 2 1 2) |
140 |
|
|
141 |
(deftest subsetp.17 |
(deftest subsetp.order.2 |
142 |
(let ((i 0) x y z w) |
(let ((i 0) x y z w) |
143 |
(values |
(values |
144 |
(notnot (subsetp (progn (setf x (incf i)) |
(notnot (subsetp (progn (setf x (incf i)) |
150 |
i x y z w)) |
i x y z w)) |
151 |
t 4 1 2 3 4) |
t 4 1 2 3 4) |
152 |
|
|
153 |
(deftest subsetp.18 |
(deftest subsetp.order.3 |
154 |
(let ((i 0) x y z w) |
(let ((i 0) x y z w) |
155 |
(values |
(values |
156 |
(notnot (subsetp (progn (setf x (incf i)) |
(notnot (subsetp (progn (setf x (incf i)) |
162 |
i x y z w)) |
i x y z w)) |
163 |
t 4 1 2 3 4) |
t 4 1 2 3 4) |
164 |
|
|
|
|
|
|
|
|
165 |
;;; Keyword tests |
;;; Keyword tests |
166 |
|
|
167 |
(deftest subsetp.allow-other-keys.1 |
(deftest subsetp.allow-other-keys.1 |