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