67 |
:key nil) |
:key nil) |
68 |
(2 2 b b)) |
(2 2 b b)) |
69 |
|
|
70 |
|
(deftest nsublis.10 |
71 |
|
(check-nsublis (list 0 3 8 20) |
72 |
|
'((1 . x) (5 . y) (10 . z)) |
73 |
|
:test #'(lambda (x y) (and (realp x) (realp y) (< x y)))) |
74 |
|
(x y z 20)) |
75 |
|
|
76 |
|
(deftest nsublis.11 |
77 |
|
(check-nsublis (list 0 3 8 20) |
78 |
|
'((1 . x) (5 . y) (10 . z)) |
79 |
|
:test-not |
80 |
|
#'(lambda (x y) (not (and (realp x) (realp y) (< x y))))) |
81 |
|
(x y z 20)) |
82 |
|
|
83 |
;;; Order of argument evaluation |
;;; Order of argument evaluation |
84 |
(deftest nsublis.order.1 |
(deftest nsublis.order.1 |
85 |
(let ((i 0) w x y z) |
(let ((i 0) w x y z) |