17 |
(ycopy (make-scaffold-copy y))) |
(ycopy (make-scaffold-copy y))) |
18 |
(let ((result |
(let ((result |
19 |
(apply #'subsetp x y |
(apply #'subsetp x y |
20 |
`(,@(unless (eq key 'no-key) |
`(,@(unless (eqt key 'no-key) |
21 |
`(:key ,key)) |
`(:key ,key)) |
22 |
,@(when test `(:test ,test)) |
,@(when test `(:test ,test)) |
23 |
,@(when test-not `(:test-not ,test-not)))))) |
,@(when test-not `(:test-not ,test-not)))))) |
75 |
(list '(z . c) '(a . y) '(b . 100) '(e . f) |
(list '(z . c) '(a . y) '(b . 100) '(e . f) |
76 |
'(c . foo))) |
'(c . foo))) |
77 |
:test #'(lambda (e1 e2) |
:test #'(lambda (e1 e2) |
78 |
(eq e1 (car e2)))) |
(eqt e1 (car e2)))) |
79 |
t) |
t) |
80 |
|
|
81 |
(deftest subsetp-10 |
(deftest subsetp-10 |
85 |
(list '(z . c) '(a . y) '(b . 100) '(e . f) |
(list '(z . c) '(a . y) '(b . 100) '(e . f) |
86 |
'(c . foo))) |
'(c . foo))) |
87 |
:test #'(lambda (e1 e2) |
:test #'(lambda (e1 e2) |
88 |
(eq e1 (car e2))) |
(eqt e1 (car e2))) |
89 |
:key nil) |
:key nil) |
90 |
(error (c) c)) |
(error (c) c)) |
91 |
t) |
t) |
96 |
(list '(z . c) '(a . y) '(b . 100) '(e . f) |
(list '(z . c) '(a . y) '(b . 100) '(e . f) |
97 |
'(c . foo))) |
'(c . foo))) |
98 |
:test-not #'(lambda (e1 e2) |
:test-not #'(lambda (e1 e2) |
99 |
(not (eq e1 (car e2))))) |
(not (eqt e1 (car e2))))) |
100 |
t) |
t) |
101 |
|
|
102 |
;; Check that it maintains order of arguments |
;; Check that it maintains order of arguments |