113 |
;; Check that a null key arg is ignored. |
;; Check that a null key arg is ignored. |
114 |
|
|
115 |
(deftest sublis-8 |
(deftest sublis-8 |
116 |
(handler-case |
(check-sublis |
117 |
(check-sublis |
'(1 2 a b) |
118 |
'(1 2 a b) |
'((1 . 2) (a . b)) |
119 |
'((1 . 2) (a . b)) |
:key nil) |
|
:key nil) |
|
|
(error (c) c)) |
|
120 |
(2 2 b b)) |
(2 2 b b)) |
121 |
|
|
122 |
;; nsublis |
;; nsublis |
185 |
;; Check that a null key arg is ignored. |
;; Check that a null key arg is ignored. |
186 |
|
|
187 |
(deftest nsublis-8 |
(deftest nsublis-8 |
188 |
(handler-case |
(check-nsublis |
189 |
(check-nsublis |
'(1 2 a b) |
190 |
'(1 2 a b) |
'((1 . 2) (a . b)) |
191 |
'((1 . 2) (a . b)) |
:key nil) |
|
:key nil) |
|
|
(error (c) c)) |
|
192 |
(2 2 b b)) |
(2 2 b b)) |
193 |
|
|
194 |
(deftest sublis-shared |
(deftest sublis-shared |
271 |
((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo)))) |
((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo)))) |
272 |
|
|
273 |
(deftest subst-9 |
(deftest subst-9 |
274 |
(handler-case |
(check-subst 'a 'b |
275 |
(check-subst 'a 'b |
(copy-tree '(a b c d a b)) |
276 |
(copy-tree '(a b c d a b)) |
:key nil) |
|
:key nil) |
|
|
(error (c) c)) |
|
277 |
(a a c d a a)) |
(a a c d a a)) |
278 |
|
|
279 |
|
|
373 |
(40 40 40 40)) |
(40 40 40 40)) |
374 |
|
|
375 |
(deftest subst-if-6 |
(deftest subst-if-6 |
376 |
(handler-case |
(check-subst-if 'a #'(lambda (x) (eql x 'b)) |
377 |
(check-subst-if 'a #'(lambda (x) (eql x 'b)) |
'((a) (b) (c) (d)) |
378 |
'((a) (b) (c) (d)) |
:key nil) |
379 |
:key nil) |
((a) (a) (c) (d))) |
|
(error (c) c)) |
|
|
((a) (a) (c) (d))) |
|
380 |
|
|
381 |
(deftest subst-if-not-5 |
(deftest subst-if-not-5 |
382 |
(handler-case |
(check-subst-if-not 'a #'(lambda (x) (not (eql x 'b))) |
383 |
(check-subst-if-not 'a #'(lambda (x) (not (eql x 'b))) |
'((a) (b) (c) (d)) |
384 |
'((a) (b) (c) (d)) |
:key nil) |
385 |
:key nil) |
((a) (a) (c) (d))) |
|
(error (c) c)) |
|
|
((a) (a) (c) (d))) |
|
386 |
|
|
387 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
388 |
;;; Check nsubst |
;;; Check nsubst |
448 |
((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo)))) |
((1 . foo) (foo . 5) (foo 7 foo 9 foo (11 foo)))) |
449 |
|
|
450 |
(deftest nsubst-9 |
(deftest nsubst-9 |
451 |
(handler-case |
(check-nsubst 'a 'b |
|
(check-nsubst 'a 'b |
|
452 |
(copy-tree '(a b c d a b)) |
(copy-tree '(a b c d a b)) |
453 |
:key nil) |
:key nil) |
|
(error (c) c)) |
|
454 |
(a a c d a a)) |
(a a c d a a)) |
455 |
|
|
456 |
|
|
532 |
(40 40 40 40)) |
(40 40 40 40)) |
533 |
|
|
534 |
(deftest nsubst-if-6 |
(deftest nsubst-if-6 |
535 |
(handler-case |
(check-nsubst-if 'a #'(lambda (x) (eql x 'b)) |
|
(check-nsubst-if 'a #'(lambda (x) (eql x 'b)) |
|
536 |
'((a) (b) (c) (d)) |
'((a) (b) (c) (d)) |
537 |
:key nil) |
:key nil) |
538 |
(error (c) c)) |
((a) (a) (c) (d))) |
|
((a) (a) (c) (d))) |
|
539 |
|
|
540 |
(deftest nsubst-if-not-5 |
(deftest nsubst-if-not-5 |
541 |
(handler-case |
(check-nsubst-if-not 'a #'(lambda (x) (not (eql x 'b))) |
|
(check-nsubst-if-not 'a #'(lambda (x) (not (eql x 'b))) |
|
542 |
'((a) (b) (c) (d)) |
'((a) (b) (c) (d)) |
543 |
:key nil) |
:key nil) |
544 |
(error (c) c)) |
((a) (a) (c) (d))) |
|
((a) (a) (c) (d))) |
|