29 |
(check-cons-copy x y)) |
(check-cons-copy x y)) |
30 |
t) |
t) |
31 |
|
|
32 |
|
(deftest copy-tree.order.1 |
33 |
|
(let ((i 0)) |
34 |
|
(values |
35 |
|
(copy-tree (progn (incf i) '(a b c))) |
36 |
|
i)) |
37 |
|
(a b c) 1) |
38 |
|
|
39 |
(deftest copy-tree.error.1 |
(deftest copy-tree.error.1 |
40 |
(classify-error (copy-tree)) |
(classify-error (copy-tree)) |
41 |
program-error) |
program-error) |
44 |
(classify-error (copy-tree 'a 'b)) |
(classify-error (copy-tree 'a 'b)) |
45 |
program-error) |
program-error) |
46 |
|
|
47 |
|
;;; |
48 |
|
|
49 |
(deftest sublis.1 |
(deftest sublis.1 |
50 |
(check-sublis '((a b) g (d e 10 g h) 15 . g) |
(check-sublis '((a b) g (d e 10 g h) 15 . g) |
51 |
'((e . e2) (g . 17))) |
'((e . e2) (g . 17))) |
105 |
(2 2 b b)) |
(2 2 b b)) |
106 |
|
|
107 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
108 |
(deftest sublis.9 |
(deftest sublis.order.1 |
109 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
110 |
(values |
(values |
111 |
(sublis |
(sublis |
119 |
(z b c d) |
(z b c d) |
120 |
4 1 2 3 4) |
4 1 2 3 4) |
121 |
|
|
122 |
(deftest sublis.10 |
(deftest sublis.order.2 |
123 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
124 |
(values |
(values |
125 |
(sublis |
(sublis |
246 |
(2 2 b b)) |
(2 2 b b)) |
247 |
|
|
248 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
249 |
(deftest nsublis.10 |
(deftest nsublis.order.1 |
250 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
251 |
(values |
(values |
252 |
(nsublis |
(nsublis |
260 |
(z b c d) |
(z b c d) |
261 |
4 1 2 3 4) |
4 1 2 3 4) |
262 |
|
|
263 |
(deftest nsublis.11 |
(deftest nsublis.order.2 |
264 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |
265 |
(values |
(values |
266 |
(nsublis |
(nsublis |
385 |
(a a c d a a)) |
(a a c d a a)) |
386 |
|
|
387 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
388 |
(deftest subst.10 |
(deftest subst.order.1 |
389 |
(let ((i 0) v w x y z) |
(let ((i 0) v w x y z) |
390 |
(values |
(values |
391 |
(subst (progn (setf v (incf i)) 'b) |
(subst (progn (setf v (incf i)) 'b) |
397 |
((10 b . b) b b c ((b)) z) |
((10 b . b) b b c ((b)) z) |
398 |
5 1 2 3 4 5) |
5 1 2 3 4 5) |
399 |
|
|
400 |
(deftest subst.11 |
(deftest subst.order.2 |
401 |
(let ((i 0) v w x y z) |
(let ((i 0) v w x y z) |
402 |
(values |
(values |
403 |
(subst (progn (setf v (incf i)) 'b) |
(subst (progn (setf v (incf i)) 'b) |
650 |
(a a c d a a)) |
(a a c d a a)) |
651 |
|
|
652 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
653 |
(deftest nsubst.10 |
(deftest nsubst.order.1 |
654 |
(let ((i 0) v w x y z) |
(let ((i 0) v w x y z) |
655 |
(values |
(values |
656 |
(nsubst (progn (setf v (incf i)) 'b) |
(nsubst (progn (setf v (incf i)) 'b) |
662 |
((10 b . b) b b c ((b)) z) |
((10 b . b) b b c ((b)) z) |
663 |
5 1 2 3 4 5) |
5 1 2 3 4 5) |
664 |
|
|
665 |
(deftest nsubst.11 |
(deftest nsubst.order.2 |
666 |
(let ((i 0) v w x y z) |
(let ((i 0) v w x y z) |
667 |
(values |
(values |
668 |
(nsubst (progn (setf v (incf i)) 'b) |
(nsubst (progn (setf v (incf i)) 'b) |