73 |
(not (and (realp x) (realp y) (< x y))))) |
(not (and (realp x) (realp y) (< x y))))) |
74 |
(1 2 10 x x 4)) |
(1 2 10 x x 4)) |
75 |
|
|
76 |
|
(defharmless nsubset.test-and-test-not.1 |
77 |
|
(nsubst 'a 'b (list 'a 'b 'c 'd 'e) :test #'eq :test-not #'eq)) |
78 |
|
|
79 |
|
(defharmless nsubset.test-and-test-not.2 |
80 |
|
(nsubst 'a 'b (list 'a 'b 'c 'd 'e) :test-not #'eq :test #'eq)) |
81 |
|
|
82 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
83 |
(deftest nsubst.order.1 |
(deftest nsubst.order.1 |
84 |
(let ((i 0) v w x y z) |
(let ((i 0) v w x y z) |