| /dports/lang/kawa/kawa-3.1.1/testsuite/larceny-tests/tests/scheme/ |
| H A D | cxr.sld | 29 ;;; cdaadr
71 (test (cdaadr '(- ((1) 2))) '())
|
| /dports/lang/guile2/guile-2.2.7/module/srfi/ |
| H A D | srfi-17.scm | 51 caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr
144 (define cdaadr unknown
145 (getter-with-setter (@ (guile) cdaadr)
|
| /dports/lang/guile1/guile-1.8.8/srfi/ |
| H A D | srfi-17.scm | 51 caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr
144 (define cdaadr unknown
145 (getter-with-setter (@ (guile) cdaadr)
|
| /dports/lang/guile/guile-3.0.7/module/srfi/ |
| H A D | srfi-17.scm | 51 caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr
144 (define cdaadr unknown
145 (getter-with-setter (@ (guile) cdaadr)
|
| /dports/lang/owl-lisp/owl-079f58f45039805517b9b880feec050e151c52b3/scheme/ |
| H A D | cxr.scm | 24 cdaadr
51 (define (cdaadr x) (cdr (car (car (cdr x)))))
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/ |
| H A D | 101.sld | 35 (rename ra:cdaadr cdaadr)
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | pairs.test | 111 (pass-if "cdaadr"
112 (= (cdaadr x) 10))
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | pairs.test | 111 (pass-if "cdaadr"
112 (= (cdaadr x) 10))
|
| /dports/lang/kawa/kawa-3.1.1/kawa/lib/scheme/ |
| H A D | cxr-exports | 3 cddar cddddr caaadr caadar caadr cadadr caddar caddr cdaadr cdadar
|
| /dports/lang/guile/guile-3.0.7/module/scheme/ |
| H A D | cxr.scm | 32 cdaadr
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/scheme/ |
| H A D | cxr.scm | 10 cdaaar cdaadr
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/ |
| H A D | cxr.sld | 7 cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr)
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/nonkernel/ |
| H A D | carcdr.sl | 61 cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar
114 (de cdaadr (u)
117 (t (nonpairerror u 'cdaadr))))
241 cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/boot/lib/ |
| H A D | match_core.scm | 990 (pair? (cdaadr s))
991 (pair? (car (cdaadr s)))
992 (equal? (caar (cdaadr s)) 'lambda)
993 (pair? (cdar (cdaadr s)))
994 (null? (cadar (cdaadr s)))
995 (pair? (cddar (cdaadr s)))
996 (null? (cdddar (cdaadr s)))
997 (null? (cdr (cdaadr s)))
1001 (equal? (caddar (cdaadr s)) f))
1117 (caadr caaadr . cdaadr)
[all …]
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-gtk/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-qt5/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-m17nlib/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-gtk3/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/japanese/uim-anthy/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 307 (assert-equal? "cdaadr" 9 (cdaadr tree))
342 (assert-equal? "cdaadr empty list" '() (cdaadr '()))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
|
| /dports/lang/ypsilon/ypsilon-0.9.6-update3/heap/boot/ |
| H A D | first-load.scm | 31 (set-top-level-value! '.cdaadr cdaadr)
|