61 |
:key nil) |
:key nil) |
62 |
(a a c d a a)) |
(a a c d a a)) |
63 |
|
|
64 |
|
(deftest subst.10 |
65 |
|
(check-subst 'x 10 (copy-tree '(1 2 10 20 30 4)) |
66 |
|
:test #'(lambda (x y) (and (realp x) (realp y) (< x y)))) |
67 |
|
(1 2 10 x x 4)) |
68 |
|
|
69 |
|
(deftest subst.11 |
70 |
|
(check-subst 'x 10 (copy-tree '(1 2 10 20 30 4)) |
71 |
|
:test-not #'(lambda (x y) |
72 |
|
(not (and (realp x) (realp y) (< x y))))) |
73 |
|
(1 2 10 x x 4)) |
74 |
|
|
75 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
76 |
(deftest subst.order.1 |
(deftest subst.order.1 |
77 |
(let ((i 0) v w x y z) |
(let ((i 0) v w x y z) |