| /dports/editors/calligraplan/calligraplan-3.3.0/src/libs/kernel/tests/ |
| H A D | AppointmentIntervalTester.cpp | 505 lst2 += lst1; in subtractList()
511 lst2 -= lst1; in subtractList()
515 lst2 -= lst1; in subtractList()
528 lst2 -= lst1; in subtractList()
541 lst2 -= lst1; in subtractList()
555 lst2 -= lst1; in subtractList()
566 lst2 -= lst1; in subtractList()
583 lst2 -= lst1; in subtractList()
611 lst2 -= lst1; in subtractList()
628 lst2 -= lst1; in subtractList()
[all …]
|
| /dports/lang/ypsilon/ypsilon-0.9.6-update3/src/ |
| H A D | equiv.cpp | 60 if (lst1 == lst2) return true; in r5rs_equal_pred()
62 if (PAIRP(lst2)) { in r5rs_equal_pred()
65 lst2 = CDR(lst2); in r5rs_equal_pred()
72 if (VECTORP(lst2)) { in r5rs_equal_pred()
90 if (BVECTORP(lst2)) { in r5rs_equal_pred()
100 return eqv_pred(lst1, lst2); in r5rs_equal_pred()
154 if (c1 == terminal_listp(lst2)) return r5rs_equal_pred(lst1, lst2); in equal_pred()
163 if (PAIRP(lst2)) { in equal_pred()
167 lst2 = CDR(lst2); in equal_pred()
174 if (VECTORP(lst2)) { in equal_pred()
[all …]
|
| /dports/lang/gambit-c/gambit-4.9.3/tests/unit-tests/04-list/ |
| H A D | map.scm | 7 (define lst2 (list 11 22)) unknown
14 (check-equal? (map inc lst2) '(12 23))
23 (check-equal? (map add lst2 '()) '())
28 (check-equal? (map list lst2 lst2 '(1 2)) '((11 11 1) (22 22 2)))
29 (check-equal? (map list lst2 lst2 '(1 2)) '((11 11 1) (22 22 2)))
32 (check-equal? (map list lst2 lst2 '(1)) '((11 11 1)))
33 (check-equal? (map list lst2 '(1) lst2) '((11 1 11)))
34 (check-equal? (map list '(1) lst2 lst2) '((1 11 11)))
35 (check-equal? (map list lst2 lst2 '()) '())
36 (check-equal? (map list lst2 '() lst2) '())
[all …]
|
| H A D | fold_right.scm | 7 (define lst2 (list 11 22)) unknown
11 (check-equal? (fold-right list 99 lst2) '(11 (22 99)))
22 (check-equal? (fold-right list 99 lst2 '()) 99)
23 (check-equal? (fold-right list 99 '() lst2) 99)
27 (check-equal? (fold-right list 99 lst2 lst2 '(1 2)) '(11 11 1 (22 22 2 99)))
33 (check-equal? (fold-right list 99 lst2 lst2 '(1)) '(11 11 1 99))
34 (check-equal? (fold-right list 99 lst2 '(1) lst2) '(11 1 11 99))
35 (check-equal? (fold-right list 99 '(1) lst2 lst2) '(1 11 11 99))
36 (check-equal? (fold-right list 99 lst2 lst2 '()) 99)
37 (check-equal? (fold-right list 99 lst2 '() lst2) 99)
[all …]
|
| H A D | fold.scm | 7 (define lst2 (list 11 22)) unknown
11 (check-equal? (fold list 99 lst2) '(22 (11 99)))
22 (check-equal? (fold list 99 lst2 '()) 99)
23 (check-equal? (fold list 99 '() lst2) 99)
27 (check-equal? (fold list 99 lst2 lst2 '(1 2)) '(22 22 2 (11 11 1 99)))
33 (check-equal? (fold list 99 lst2 lst2 '(1)) '(11 11 1 99))
34 (check-equal? (fold list 99 lst2 '(1) lst2) '(11 1 11 99))
35 (check-equal? (fold list 99 '(1) lst2 lst2) '(1 11 11 99))
36 (check-equal? (fold list 99 lst2 lst2 '()) 99)
37 (check-equal? (fold list 99 lst2 '() lst2) 99)
[all …]
|
| H A D | for_each.scm | 7 (define lst2 (list 11 22)) unknown
24 (check-eq? (for-each one lst2) (void))
51 (check-eq? (for-each two lst2 '()) (void))
55 (check-eq? (for-each two '() lst2) (void))
68 (check-eq? (for-each three lst2 lst2 '(1 2)) (void))
75 (check-eq? (for-each three lst2 lst2 '(1)) (void))
79 (check-eq? (for-each three lst2 '(1) lst2) (void))
83 (check-eq? (for-each three '(1) lst2 lst2) (void))
87 (check-eq? (for-each three lst2 lst2 '()) (void))
91 (check-eq? (for-each three lst2 '() lst2) (void))
[all …]
|
| H A D | list_set.scm | 8 (define lst2 (list 11 22 33 44)) unknown
14 (check-eq? (list-set! lst2 0 55) (void))
15 (check-equal? lst2 '(55 22 33 44))
16 (check-eq? (list-set! lst2 1 66) (void))
17 (check-equal? lst2 '(55 66 33 44))
18 (check-eq? (list-set! lst2 2 77) (void))
19 (check-equal? lst2 '(55 66 77 44))
20 (check-eq? (list-set! lst2 3 88) (void))
21 (check-equal? lst2 '(55 66 77 88))
36 (check-tail-exn wrong-number-of-arguments-exception? (lambda () (list-set! lst2)))
[all …]
|
| H A D | drop.scm | 6 (define lst2 (list 11 22 33 44)) unknown
13 (check-equal? (drop lst2 0) '(11 22 33 44))
14 (check-equal? (drop lst2 1) '(22 33 44))
15 (check-equal? (drop lst2 2) '(33 44))
16 (check-equal? (drop lst2 3) '(44))
17 (check-equal? (drop lst2 4) '())
|
| H A D | take.scm | 6 (define lst2 (list 11 22 33 44)) unknown
13 (check-equal? (take lst2 0) '())
14 (check-equal? (take lst2 1) '(11))
15 (check-equal? (take lst2 2) '(11 22))
16 (check-equal? (take lst2 3) '(11 22 33))
17 (check-equal? (take lst2 4) '(11 22 33 44))
|
| H A D | circular_list.scm | 4 (define lst2 (circular-list 1 2)) unknown
12 (check-equal? (car lst2) 1)
13 (check-equal? (cadr lst2) 2)
14 (check-equal? (caddr lst2) 1)
15 (check-equal? (cadddr lst2) 2)
|
| H A D | list_ref.scm | 8 (define lst2 (list 11 22 33 44)) unknown
14 (check-eqv? (list-ref lst2 0) 11)
15 (check-eqv? (list-ref lst2 1) 22)
16 (check-eqv? (list-ref lst2 2) 33)
17 (check-eqv? (list-ref lst2 3) 44)
|
| /dports/lang/gauche/Gauche-0.9.10/ext/sxml/src/ |
| H A D | txpath.scm | 318 (n-lst (car lst2))
319 (path (cadr lst2)))
828 (cadr lst2)
835 (cadr lst2)
908 (cdr lst2))))
944 (cdr lst2))))
999 (cdr lst2)))))
1044 (cdr lst2)))))
1085 (cdr lst2))
1119 (cdr lst2))))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/test/lisp/emacs-lisp/ |
| H A D | cl-extra-tests.el | 40 (lst2 '(d e f))
46 (should (equal lst (cl-mapc fn2 lst lst2)))
51 (lst2 '(d e f))
57 (should (equal lst (cl-mapl fn2 lst lst2)))
62 (lst2 '(d e f))
68 (should (equal lst2 (cl-mapcar fn2 lst lst2)))
73 (lst2 '(d e f))
79 (should (equal (vconcat lst2) (cl-map 'vector fn2 lst lst2)))
85 (lst2 '(d e f))
92 (should (equal (list lst2 (cdr lst2) (cddr lst2))
[all …]
|
| /dports/editors/emacs/emacs-27.2/test/lisp/emacs-lisp/ |
| H A D | cl-extra-tests.el | 40 (lst2 '(d e f))
46 (should (equal lst (cl-mapc fn2 lst lst2)))
51 (lst2 '(d e f))
57 (should (equal lst (cl-mapl fn2 lst lst2)))
62 (lst2 '(d e f))
68 (should (equal lst2 (cl-mapcar fn2 lst lst2)))
73 (lst2 '(d e f))
79 (should (equal (vconcat lst2) (cl-map 'vector fn2 lst lst2)))
85 (lst2 '(d e f))
92 (should (equal (list lst2 (cdr lst2) (cddr lst2))
[all …]
|
| /dports/lang/ypsilon/ypsilon-0.9.6-update3/sitelib/srfi/ |
| H A D | srfi-1.scm | 302 (if (null? lst2)
314 (if (null? lst2)
352 (if (null? lst2)
372 (if (null? lst2)
392 (if (null? lst2)
413 (if (null? lst2)
432 (if (null? lst2)
444 (if (null? lst2)
450 (if (null? lst2)
456 (if (null? lst2)
[all …]
|
| /dports/net/pjsip/pjproject-2.11.1/pjlib/include/pj/ |
| H A D | list_i.h | 58 PJ_IDEF(void) pj_list_merge_last(pj_list_type *lst1, pj_list_type *lst2) in pj_list_merge_last() argument
60 if (!pj_list_empty(lst2)) { in pj_list_merge_last()
61 pj_link_node(((pj_list*)lst1)->prev, ((pj_list*)lst2)->next); in pj_list_merge_last()
62 pj_link_node(((pj_list*)lst2)->prev, lst1); in pj_list_merge_last()
63 pj_list_init(lst2); in pj_list_merge_last()
67 PJ_IDEF(void) pj_list_merge_first(pj_list_type *lst1, pj_list_type *lst2) in pj_list_merge_first() argument
69 if (!pj_list_empty(lst2)) { in pj_list_merge_first()
70 pj_link_node(((pj_list*)lst2)->prev, ((pj_list*)lst1)->next); in pj_list_merge_first()
71 pj_link_node(((pj_list*)lst1), ((pj_list*)lst2)->next); in pj_list_merge_first()
72 pj_list_init(lst2); in pj_list_merge_first()
|
| /dports/lang/slib/slib-3b6/ |
| H A D | comlist.scm | 45 (lambda (lst1 lst2)
47 lst2
49 (lambda (lst1 lst2)
51 ((null? lst2) lst1)
53 ((null? (cdr lst2)) (comlist:adjoin (car lst2) lst1))
54 ((< (length lst2) (length lst1)) (onion (reverse lst2) lst1))
58 (if (null? lst2)
59 lst2
69 (if (null? lst2)
77 (define (subset? lst1 lst2)
[all …]
|
| /dports/security/R-cran-gitcreds/gitcreds/tests/testthat/ |
| H A D | test-gitcreds-list.R | 60 lst2 <- gitcreds_list(url = NULL) globalVar
61 expect_true(length(lst2) >= 1)
128 lst2 <- gitcreds_list(url = NULL) globalVar
129 expect_true(length(lst2) == 1)
130 expect_equal(lst2[[1]]$attributes$service, "git:https://github.com")
188 lst2 <- gitcreds_list(url = NULL) globalVar
189 expect_true(length(lst2) == 1)
190 expect_equal(lst2[[1]]$target_name, "git:https://github.com")
248 lst2 <- gitcreds_list(url = NULL) globalVar
249 expect_true(length(lst2) == 1)
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/boot/lib/ |
| H A D | scmlib.scm | 69 (if (null? lst2)
514 (cond ((null? lst2)
562 (cond ((null? lst2)
613 (if (null? lst2)
630 (if (null? lst2)
651 (if (null? lst2)
675 (if (null? lst2)
685 (if (null? lst2)
807 lst2 tail2
824 (if (null? lst2)
[all …]
|
| /dports/lang/ypsilon/ypsilon-0.9.6-update3/stdlib/core/ |
| H A D | sorting.scm | 18 (lambda (lst1 lst2)
20 ((null? lst1) lst2)
21 ((null? lst2) lst1)
23 (if (proc (car lst2) (car lst1))
24 (cons (car lst2) (merge lst1 (cdr lst2)))
25 (cons (car lst1) (merge (cdr lst1) lst2)))))))
61 (let ((lst2 (list-sort proc lst)))
62 (cond ((eq? lst lst2) vect)
64 (list->vector lst2)))))))
|
| H A D | lists.scm | 135 (lambda (pred lst1 . lst2)
136 (cond ((null? lst2)
138 ((apply list-transpose+ lst1 lst2)
144 (lambda (pred lst1 . lst2)
145 (cond ((null? lst2)
147 ((apply list-transpose+ lst1 lst2)
150 (exists-n pred (cons lst1 lst2))))))
179 (lambda (proc seed lst1 . lst2)
180 (if (null? lst2)
202 (lambda (proc seed lst1 . lst2)
[all …]
|
| /dports/www/py-bokeh/bokeh-2.3.3/tests/unit/bokeh/core/ |
| H A D | test_has_props.py | 82 assert c.lst2 == [1,2,3]
97 assert c.lst2 == [2,3,4]
207 assert c.lst2 == [1,2]
218 assert c.lst2 == [1,2]
227 assert c.lst2 == [1,2]
236 assert c.lst2 == [1,2]
248 assert c.lst2 == [1,2]
267 assert c.lst2 == [1,2]
310 assert c.lst2 == [1,2,3]
320 assert c.lst2 == [1,2,3]
[all …]
|
| /dports/lang/gambit-c/gambit-4.9.3/tests/ |
| H A D | test10.scm | 41 (define (merge lst1 lst2)
42 (cond ((null? lst1) lst2)
43 ((null? lst2) lst1)
45 (let ((e1 (car lst1)) (e2 (car lst2)))
47 (cons e1 (merge (cdr lst1) lst2))
48 (cons e2 (merge lst1 (cdr lst2))))))))
58 (lst2 (mergesort (split (cdr lst)))))
59 (merge lst1 lst2))))
|
| H A D | debug.scm | 53 (define (merge lst1 lst2)
54 (cond ((null? lst1) lst2)
55 ((null? lst2) lst1)
57 (let ((e1 (car lst1)) (e2 (car lst2)))
59 (cons e1 (merge (cdr lst1) lst2))
60 (cons e2 (merge lst1 (cdr lst2))))))))
70 (lst2 (mergesort (split (cdr lst)))))
71 (merge lst1 lst2))))
|
| /dports/lang/mosh/mosh-0.2.7/lib/clos/private/ |
| H A D | compat.ss | 37 (define (every-2 pred lst1 lst2)
38 (let loop ((pred pred) (lst1 lst1) (lst2 lst2))
40 (null? lst2)
41 (and (pred (car lst1) (car lst2))
42 (loop pred (cdr lst1) (cdr lst2))))))
|