| /dports/lang/kawa/kawa-3.1.1/testsuite/larceny-tests/tests/scheme/ |
| H A D | cxr.sld | 20 ;;; caaadr
72 (test (caaadr '(- ((1) 2))) 1)
|
| /dports/lang/guile2/guile-2.2.7/module/srfi/ |
| H A D | srfi-17.scm | 50 cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr
120 (define caaadr unknown
121 (getter-with-setter (@ (guile) caaadr)
|
| /dports/lang/guile1/guile-1.8.8/srfi/ |
| H A D | srfi-17.scm | 50 cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr
120 (define caaadr unknown
121 (getter-with-setter (@ (guile) caaadr)
|
| /dports/lang/guile/guile-3.0.7/module/srfi/ |
| H A D | srfi-17.scm | 50 cdadr cddar cdddr caaaar caaadr caadar caaddr cadaar cadadr
120 (define caaadr unknown
121 (getter-with-setter (@ (guile) caaadr)
|
| /dports/lang/owl-lisp/owl-079f58f45039805517b9b880feec050e151c52b3/scheme/ |
| H A D | cxr.scm | 16 caaadr
43 (define (caaadr x) (car (car (car (cdr x)))))
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/ |
| H A D | 101.sld | 27 (rename ra:caaadr caaadr)
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | pairs.test | 87 (pass-if "caaadr"
88 (= (caaadr x) 2))
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | pairs.test | 87 (pass-if "caaadr"
88 (= (caaadr x) 2))
|
| /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 | 20 caaadr
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/scheme/ |
| H A D | cxr.scm | 4 (export caaaar caaadr
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/scheme/ |
| H A D | cxr.sld | 6 caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
|
| /dports/math/maxima/maxima-5.43.2/src/ |
| H A D | trgred.lisp | 179 ((and (eq (caaadr l) 'mexpt)
181 (member (caaadr (cadr l))
183 (cons (funcall (cdr (assoc (caaadr (cadr l)) *sc^ndisp* :test #'eq))
186 ((member (caaadr l) (if trig '(%sin %cos) '(%sinh %cosh)) :test #'eq)
290 (setq e (cons (list (zl-get (caaadr e) 'recip)) (cdadr e)))))
565 ((eq (caaadr e) (zl-get (caar e) '$inverse)) (sp1 (cadadr e)))
566 ((eq (caaadr e) (zl-get (zl-get (caar e) 'recip) '$inverse))
568 ((and (null *trigred) (null *noexpand) (eq (caaadr e) 'mplus))
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/nonkernel/ |
| H A D | carcdr.sl | 59 caaadr caadr cadr caadar cadar cdar caaddr caddr cddr
74 (de caaadr (u)
77 (t (nonpairerror u 'caaadr))))
239 caaadr caadr cadr caadar cadar cdar caaddr caddr cddr
|
| /dports/math/reduce/Reduce-svn5758-src/packages/poly/ |
| H A D | homog.red | 36 else if listsum caaadr s=listsum caar lastnondomain cadr s
68 fs := sf2ss car x; td := listsum caaadr fs;
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-gtk/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-qt5/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-m17nlib/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-gtk3/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/japanese/uim-anthy/sigscheme-beb8fbd/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-pair.scm | 299 (assert-equal? "caaadr" 8 (caaadr tree))
334 (assert-equal? "caaadr empty list" '() (caaadr '()))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
|