76 |
#'(lambda (x y) (not (and (realp x) (realp y) (< x y))))) |
#'(lambda (x y) (not (and (realp x) (realp y) (< x y))))) |
77 |
(x y z 20)) |
(x y z 20)) |
78 |
|
|
79 |
|
(defharmless sublis.test-and-test-not.1 |
80 |
|
(sublis '((a . 1) (b . 2)) (list 'a 'b 'c 'd) |
81 |
|
:test #'eql :test-not #'eql)) |
82 |
|
|
83 |
|
(defharmless sublis.test-and-test-not.2 |
84 |
|
(sublis '((a . 1) (b . 2)) (list 'a 'b 'c 'd) |
85 |
|
:test-not #'eql :test #'eql)) |
86 |
|
|
87 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
88 |
(deftest sublis.order.1 |
(deftest sublis.order.1 |
89 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |