249 |
(deftest make-sequence.error.14 |
(deftest make-sequence.error.14 |
250 |
(classify-error (locally (make-sequence 'symbol 10) t)) |
(classify-error (locally (make-sequence 'symbol 10) t)) |
251 |
type-error) |
type-error) |
252 |
|
|
253 |
|
;;; Order of execution tests |
254 |
|
|
255 |
|
(deftest make-sequence.order.1 |
256 |
|
(let ((i 0) a b c) |
257 |
|
(values |
258 |
|
(make-sequence (progn (setf a (incf i)) 'list) |
259 |
|
(progn (setf b (incf i)) 5) |
260 |
|
:initial-element (progn (setf c (incf i)) 'a)) |
261 |
|
i a b c)) |
262 |
|
(a a a a a) 3 1 2 3) |
263 |
|
|
264 |
|
(deftest make-sequence.order.2 |
265 |
|
(let ((i 0) a b c d e) |
266 |
|
(values |
267 |
|
(make-sequence (progn (setf a (incf i)) 'list) |
268 |
|
(progn (setf b (incf i)) 5) |
269 |
|
:allow-other-keys (setf c (incf i)) |
270 |
|
:initial-element (progn (setf d (incf i)) 'a) |
271 |
|
:foo (setf e (incf i))) |
272 |
|
i a b c d e)) |
273 |
|
(a a a a a) 5 1 2 3 4 5) |