| /dports/databases/pgloader3/ironclad-v0.54/benchmark/ |
| H A D | benchmark-implementation.lisp | 10 (defparameter *result* (acons "version"
56 (setf speeds (acons cipher-name speed speeds)))))
57 (setf *result* (acons "ciphers" speeds *result*))))
67 (setf speeds (acons digest-name speed speeds))))
68 (setf *result* (acons "digests" speeds *result*))))
94 (setf speeds (acons mac-name speed speeds))))
95 (setf *result* (acons "macs" speeds *result*))))
110 (setf speeds (acons mode-name speed speeds))))
111 (setf *result* (acons "modes" speeds *result*))))
124 (setf speeds (acons dh-name speed speeds)))))
[all …]
|
| /dports/graphics/opendx/dx-4.4.4/src/exec/dxmods/ |
| H A D | _grid.c | 168 Array acons; local
199 if (! generate_field ("lines", apos, acons, outo))
243 acons = (Array) DXNewPathArray (count[0]);
245 if (! generate_field ("lines", apos, acons, outo))
413 Array acons; local
545 if (! (cons = (int *) DXGetArrayData (acons)))
567 Array acons; local
1140 Array acons;
1154 if (acons == NULL) {
1178 acons = NULL;
[all …]
|
| /dports/lang/gauche/Gauche-0.9.10/test/ |
| H A D | load.scm | 267 (library-fold '_test acons '() :paths '("./test.o")))
270 (library-fold "_test" acons '() :paths '("./test.o")))
276 (library-fold '_test acons '() :paths paths-a))
278 (library-fold '_test acons '() :paths paths-b))
281 (library-fold "_test" acons '() :paths paths-b))
286 (library-fold "_test" acons '() :paths paths-b
292 (library-fold '_test acons '() :paths paths-b
297 (library-fold '_test._test acons '() :paths paths-b))
300 (library-fold "_test/_test" acons '() :paths paths-b))
307 (sort (library-fold '_test.* acons '() :paths paths-b)
[all …]
|
| /dports/editors/texmacs/TeXmacs-1.99.4-src/TeXmacs/progs/convert/rewrite/ |
| H A D | init-rewrite.scm | 83 (texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
86 (verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
90 (acons "verbatim->texmacs:encoding" "SourceCode" '())))
113 (texmacs->verbatim x (acons "texmacs->verbatim:encoding" "SourceCode" '())))
116 (verbatim->texmacs x (acons "verbatim->texmacs:encoding" "SourceCode" '())))
120 (acons "verbatim->texmacs:encoding" "SourceCode" '())))
|
| /dports/lang/fth/fth-1.4.1/tests/ |
| H A D | list-test.fs | 159 '( 0 1 ) 2 3 nil acons 2 list-append '( 0 1 2 nil cons 3 set-cdr! )
160 list<> "'( 0 1 ) 2 3 nil acons 2 list-append" test-expr
205 0 1 2 3 nil acons acons last-pair 'a( 2 3 ) list<>
207 \ acons, list-assoc, list-assoc-ref, list-assoc-set!, list-assoc-remove!
208 0 1 2 3 nil acons acons to l1
210 l1 l2 list<> "acons" test-expr
213 l1 0 10 list-assoc-set! 0 10 2 3 nil acons acons list<>
217 0 10 2 3 7 20 nil acons acons acons to l2
221 2 3 7 20 nil acons acons to l2
|
| /dports/lang/gauche/Gauche-0.9.10/lib/srfi-14/ |
| H A D | set.scm | 54 (loop next (acons (+ to 1) hi result)))
56 (loop next (acons lo (- from 1) result))
62 (loop next (acons lo (- from 1) result))))
66 (loop next (acons (+ to 1) hi result)))
69 (loop next (acons lo hi result)))))
|
| /dports/lang/guile2/guile-2.2.7/module/system/base/ |
| H A D | language.scm | 86 (lp (car pair) (acons from (cdr pair) seen)))
94 (acons key order *compilation-cache*))
104 (set! *decompilation-cache* (acons key order *decompilation-cache*))
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
| H A D | spvw_circ_old.d | 1325 if (eq(Car(acons),obj)) { in subst_circ_mark()
1329 *ptr = (marked(ptr) ? with_mark_bit(Cdr(acons)) : (object)Cdr(acons)); in subst_circ_mark()
1369 if (eq(Car(acons),obj)) { in subst_circ_mark()
1373 *ptr = (marked(ptr) ? with_mark_bit(Cdr(acons)) : (object)Cdr(acons)); in subst_circ_mark()
1528 if (eq(Car(acons),obj)) {
1531 *ptr = Cdr(acons);
1568 *ptr = Cdr(acons);
1719 if (eq(Car(acons),obj)) { in subst_circ_mark()
1723 *ptr = (marked(ptr) ? with_mark_bit(Cdr(acons)) : (object)Cdr(acons)); in subst_circ_mark()
1764 if (eq(Car(acons),obj)) { in subst_circ_mark()
[all …]
|
| H A D | spvw_circ.d | 1608 if (eq(Car(acons),obj)) { in subst_circ_mark()
1612 *ptr = (marked(ptr) ? with_mark_bit(Cdr(acons)) : (object)Cdr(acons)); in subst_circ_mark()
1660 if (eq(Car(acons),obj)) { in subst_circ_mark()
1664 *ptr = (marked(ptr) ? with_mark_bit(Cdr(acons)) : (object)Cdr(acons)); in subst_circ_mark()
1837 if (eq(Car(acons),obj)) {
1840 *ptr = Cdr(acons);
1877 *ptr = Cdr(acons);
2028 if (eq(Car(acons),obj)) { in subst_circ_mark()
2032 *ptr = (marked(ptr) ? with_mark_bit(Cdr(acons)) : (object)Cdr(acons)); in subst_circ_mark()
2073 if (eq(Car(acons),obj)) { in subst_circ_mark()
[all …]
|
| /dports/lang/guile2/guile-2.2.7/benchmark-suite/benchmarks/ |
| H A D | vlists.bm | 67 (comparative-benchmark "acons" 2
68 ((srfi-1 ((acons alist-cons) (null '())))
69 (vlist ((acons vhash-cons) (null vlist-null))))
74 (loop (1- i) (acons i i r))))))
|
| /dports/lang/guile/guile-3.0.7/benchmark-suite/benchmarks/ |
| H A D | vlists.bm | 67 (comparative-benchmark "acons" 2
68 ((srfi-1 ((acons alist-cons) (null '())))
69 (vlist ((acons vhash-cons) (null vlist-null))))
74 (loop (1- i) (acons i i r))))))
|
| /dports/devel/roswell/roswell-20.06.14.107/lisp/ |
| H A D | extend-quicklisp.lisp | 9 (setf *load* (acons 'asd-p 'load-asd (remove 'asd-p *load* :key 'first)))
16 (setf *load* (acons 'ros-p 'load-ros (remove 'ros-p *load* :key 'first)))
30 (acons x 'fetch-via-roswell
167 (acons "http" 'ql-http:http-fetch
|
| /dports/devel/guile-lib/guile-lib-0.2.6.1/src/container/ |
| H A D | nodal-tree.scm | 36 (else (lp (list-cdr-ref in 2) (acons (car in) (cadr in) out))))))
44 (acons 'children '() body)))))
|
| /dports/lang/guile2/guile-2.2.7/module/ice-9/ |
| H A D | getopt-long.scm | 252 (loop (- unclumped 1) ls (acons spec #t found) etc)
253 (loop (- unclumped 2) (cdr ls) (acons spec (car ls) found) etc)))
259 (loop (- unclumped 2) (cdr ls) (acons spec (car ls) found) etc)))
261 (loop (- unclumped 1) ls (acons spec #t found) etc))))
|
| /dports/lang/guile/guile-3.0.7/module/ice-9/ |
| H A D | getopt-long.scm | 252 (loop (- unclumped 1) ls (acons spec #t found) etc)
253 (loop (- unclumped 2) (cdr ls) (acons spec (car ls) found) etc)))
259 (loop (- unclumped 2) (cdr ls) (acons spec (car ls) found) etc)))
261 (loop (- unclumped 1) ls (acons spec #t found) etc))))
|
| /dports/lang/gauche/Gauche-0.9.10/lib/rfc/ |
| H A D | cookie.scm | 80 (acons (rxmatch-substring m 1) #f r))))]
87 (acons attr
91 (reverse! (acons attr (string-trim-right input) r))]))
|
| /dports/lang/guile2/guile-2.2.7/module/texinfo/ |
| H A D | indexing.scm | 62 (loop (cddr in) (acons (cadr (assq 'name (cdr (cadadr in))))
67 (loop (cddr in) (acons (sxml->string (cadr in))
|
| /dports/lang/guile/guile-3.0.7/module/texinfo/ |
| H A D | indexing.scm | 62 (loop (cddr in) (acons (cadr (assq 'name (cdr (cadadr in))))
67 (loop (cddr in) (acons (sxml->string (cadr in))
|
| /dports/print/lilypond-devel/lilypond-2.23.5/scm/ |
| H A D | fret-diagrams.scm | 255 (acons 'fret-range fret-range
256 (acons 'barre-list barre-list
257 (acons 'dot-list dot-list
258 (acons 'xo-list xo-list
259 (acons 'capo-fret capo-fret '())))))))
935 (acons 'finger-code finger-id details))))
947 (acons 'fret-count fret-count details))))
951 (acons 'string-count string-count details))))
955 (acons 'dot-radius dot-size details))))
959 (acons 'dot-position dot-position details))))
[all …]
|
| /dports/print/lilypond/lilypond-2.22.1/scm/ |
| H A D | fret-diagrams.scm | 255 (acons 'fret-range fret-range
256 (acons 'barre-list barre-list
257 (acons 'dot-list dot-list
258 (acons 'xo-list xo-list
259 (acons 'capo-fret capo-fret '())))))))
935 (acons 'finger-code finger-id details))))
947 (acons 'fret-count fret-count details))))
951 (acons 'string-count string-count details))))
955 (acons 'dot-radius dot-size details))))
959 (acons 'dot-position dot-position details))))
[all …]
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | alist.test | 37 (let ((a (acons 'a 'b (acons 'c 'd (acons 'e 'f '()))))
38 (b (acons "this" "is" (acons "a" "test" '())))
40 (pass-if "acons"
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | alist.test | 37 (let ((a (acons 'a 'b (acons 'c 'd (acons 'e 'f '()))))
38 (b (acons "this" "is" (acons "a" "test" '())))
40 (pass-if "acons"
|
| /dports/science/lammps/lammps-stable_29Sep2021/src/KOKKOS/ |
| H A D | pppm_kokkos.cpp | 109 acons(1,0) = 2.0 / 3.0; in PPPMKokkos()
110 acons(2,0) = 1.0 / 50.0; in PPPMKokkos()
111 acons(2,1) = 5.0 / 294.0; in PPPMKokkos()
112 acons(3,0) = 1.0 / 588.0; in PPPMKokkos()
113 acons(3,1) = 7.0 / 1440.0; in PPPMKokkos()
114 acons(3,2) = 21.0 / 3872.0; in PPPMKokkos()
115 acons(4,0) = 1.0 / 4320.0; in PPPMKokkos()
116 acons(4,1) = 3.0 / 1936.0; in PPPMKokkos()
119 acons(5,0) = 1.0 / 23232.0; in PPPMKokkos()
125 acons(6,1) = 13.0 / 57600.0; in PPPMKokkos()
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/script/ |
| H A D | mapping-generator.scm | 50 (acons tcode ucode tu)
51 (acons ucode tcode ut))))))))
|
| /dports/editors/texmacs/TeXmacs-1.99.4-src/TeXmacs/progs/utils/library/ |
| H A D | ptrees.scm | 21 (if (null? l) (acons "" '() '()) (acons "" '() (car l))))
|