| /dports/editors/texmacs/TeXmacs-1.99.4-src/TeXmacs/progs/kernel/texmacs/ |
| H A D | tm-language.scm | 55 ((and (func? (car l) :type 1) (symbol? (cadar l)))
58 ((and (func? (car l) :penalty 1) (penalty? (cadar l)))
62 (penalty? (cadar l)) (penalty? (caddar l)))
64 (penalty->string (cadar l)))
69 (symbol? (cadar l)) (symbol? (caddar l)))
73 ((and (func? (car l) :limits 1) (symbol? (cadar l)))
76 ((and (func? (car l) :highlight 1) (symbol? (cadar l)))
79 ((and (func? (car l) :transparent 1) (symbol? (cadar l)))
86 ((and (func? (car l) :focus 1) (symbol? (cadar l)))
89 ((and (func? (car l) :selectable 1) (symbol? (cadar l)))
[all …]
|
| H A D | tm-dialogue.scm | 50 (with left (- (+ start ,(cadar body)) (texmacs-time))
56 `(let* ((time (+ (texmacs-time) ,(cadar body)))
62 (set! time (+ (texmacs-time) ,(cadar body)))
67 (with left (- ,(cadar body) (idle-time))
76 (with left (- ,(cadar body) (idle-time))
84 (if (not ,(cadar body)) 0
89 (if (not ,(cadar body)) #t
97 (begin ,(cadar body) #t))))))
103 (with next ,(cadar body)
109 ,(cadar body)
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/packages/specfn/ |
| H A D | simpfact.red | 257 if numberp (reval list('difference,cadar (num),cadar(denom))) then
261 diff :=(reval list('difference,cadar (num),cadar(denom)));
312 car num := car {cadar num};
313 diff := (reval list('difference,cadar num,cadar denom));
337 cadar num := car{'times.numsimp};
402 diff := (reval list('difference,cadar num,cadar denom));
520 diff := reval list('difference,cadr cadar num,cadr cadar denom);
528 diff := reval list('difference,cadr cadar num,cadr cadar denom);
535 car num := car {cadar num};
537 diff := (reval list('difference,cadar num,cadar denom));
[all …]
|
| /dports/www/emacs-w3m/emacs-w3m-3925d1c/ |
| H A D | w3m-hist.el | 363 (setq last (cadar w3m-history))))
366 (cons (w3m-history-element (cadar w3m-history))
501 (setq position (copy-sequence (cadar w3m-history))
537 (setq position (copy-sequence (cadar w3m-history))
572 (let ((element (w3m-history-element (cadar w3m-history) t)))
586 (car (w3m-history-element (cadar w3m-history)))
626 (when (cadar w3m-history)
659 (when (cadar w3m-history)
681 (let ((position (cadar w3m-history))
692 (let ((position (cadar w3m-history))
[all …]
|
| /dports/editors/texmacs/TeXmacs-1.99.4-src/TeXmacs/progs/convert/tools/ |
| H A D | tmconcat.scm | 203 (cons (list 'rsub! "" (cadar l))
206 (cons (list 'rsup! "" (cadar l))
223 (cond ((null? r) (list (list s "" (cadar l))))
225 (cons (list 'lsubsup! (cadar r) (cadar l) (caddar r))
228 (cons (list 'lsubsup! (cadar r) (caddar r) (cadar l))
230 (else (cons (list s (car r) (cadar l)) (cdr r))))))
244 `((,(caar l) (concat ,(cadar l) ,(cadadr l))) ,@(cddr l))))
|
| /dports/lang/guile2/guile-2.2.7/module/srfi/ |
| H A D | srfi-17.scm | 49 car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar
98 (define cadar unknown
99 (getter-with-setter (@ (guile) cadar)
125 (compose-setter set-car! (@ (guile) cadar))))
149 (compose-setter set-cdr! (@ (guile) cadar))))
|
| /dports/lang/guile1/guile-1.8.8/srfi/ |
| H A D | srfi-17.scm | 49 car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar
98 (define cadar unknown
99 (getter-with-setter (@ (guile) cadar)
125 (compose-setter set-car! (@ (guile) cadar))))
149 (compose-setter set-cdr! (@ (guile) cadar))))
|
| /dports/lang/guile/guile-3.0.7/module/srfi/ |
| H A D | srfi-17.scm | 49 car cdr caar cadr cdar cddr caaar caadr cadar caddr cdaar
98 (define cadar unknown
99 (getter-with-setter (@ (guile) cadar)
125 (compose-setter set-car! (@ (guile) cadar))))
149 (compose-setter set-cdr! (@ (guile) cadar))))
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/slib/ |
| H A D | trace.scm | 55 (not (eq? name (cadar debug:call-stack)))
60 (cdar cdar) (cadar cadar) ;trace will not trace parts
81 (eq? name (cadar debug:call-stack)))
106 (eq? name (cadar debug:call-stack)))
126 (eq? name (cadar debug:call-stack)))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/alg/ |
| H A D | exptchk.red | 58 v and (u=car v or (eqcar(car v,'expt) and u=cadar v)
88 then if cadar u=cadar v
89 then mergey(cadar u,caddar u,caddar v,cdr u,cdr v)
91 then mksp({'expt,{'times,cadar u,cadar v},caddar u},cdr u)
93 % else mergey(cadar u,caddar u,car v,cdr u,cdr v)
94 else mergey(cadar u,caddar u,1,cdr u,cdr v)
116 else nil) where w=meldx0(cadar u,delete(u,v))
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/compiler/machines/mips/ |
| H A D | lapopt.scm | 78 (cadar first)))
80 (odd? (cadar first))))
83 (- (cadar first) 1)))))
|
| /dports/x11/xedit/xedit-1.2.2/lisp/modules/ |
| H A D | syntax.lsp | 905 (subseq line (cadar match) (cddar match))
939 (= start (cadar match))
977 (<= (cdr match) (cadar matches))
988 (< (car match) (cadar matches))
992 (= (car match) (cadar matches))
1048 (subseq line (cadar cache) (cddar cache))
1061 (> start (cadar result))
1182 (> start (cadar result))
1215 (> left (cadar result))
1351 (> left (cadar result))
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/simplification/ |
| H A D | rducon.lisp | 41 (return (cadar p)))))
70 (cond ((eq op 'sum) (add (cadar pointer) hold))
71 ((eq op 'neg) (mul -1 (add (cadar pointer) hold)))
72 (t (mul (cadar pointer) hold))))
77 (lab (cadar recheck)))
82 (cond ((alike1 negative rhs) (return (mul -1 (cadar pursue))))
146 (let ((new-exp (mul (cadar p) xbase)))
160 (let ((new-exp (power (cadar p) pw1)))
|
| /dports/math/maxima/maxima-5.43.2/share/dynamics/ |
| H A D | plotdf.lisp | 104 (or (symbolp (cadar options)) ($subvarp (cadar options)))
106 (setq s1 (cadar options))
164 (or (symbolp (cadar options)) ($subvarp (cadar options)))
166 (setq s1 (cadar options))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/excalc/ |
| H A D | exintro.red | 58 y := get(cadar u,'rtype);
59 remprop(cadar u,'rtype);
63 depend1(cadar u,prepsq simpindexvar
65 else depend1(cadar u,x,t)>>;
66 flag(list cadar u,'impfun);
67 if y then put(cadar u,'rtype,y)
|
| /dports/lang/gauche/Gauche-0.9.10/libsrc/util/ |
| H A D | match.scm | 427 (ordinary (cadar p))
428 (append (ordlist (cadar p)) (quasi (cdr p)))))
705 (next (cadar fields)
930 (pair? (cadar (cddadr s)))
941 (pair? (cadar (cddadr (caadar (cddadr s)))))
974 (null? (cadar (cdaadr s)))
1081 (cdar cadar . cddar)
1085 (cadar caadar . cdadar)
1195 (cons (cadar g162) g160)
1470 (pair? (cadar args))
[all …]
|
| /dports/lang/scheme48/scheme48-1.9.2/scheme/srfi/ |
| H A D | srfi-17.scm | 49 (cons cadar (car-setter cdar))
60 (cons caadar (car-setter cadar))
61 (cons cdadar (cdr-setter cadar))
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/scm/ |
| H A D | match.scm | 1456 (pair? (cadar (cddadr s)))
1499 (null? (cadar (cdaadr s)))
1645 (cdar cadar . cddar)
1649 (cadar caadar . cdadar)
1712 (cadar cdar . car)
1720 (caadar cadar . car)
1728 (cdadar cadar . cdr)
1834 (cons (cadar g162) g160)
1881 (pair? (cadar args))
2104 (pair? (cadar args))
[all …]
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/scm/ |
| H A D | match.scm | 1456 (pair? (cadar (cddadr s)))
1499 (null? (cadar (cdaadr s)))
1645 (cdar cadar . cddar)
1649 (cadar caadar . cdadar)
1712 (cadar cdar . car)
1720 (caadar cadar . car)
1728 (cdadar cadar . cdr)
1834 (cons (cadar g162) g160)
1881 (pair? (cadar args))
2104 (pair? (cadar args))
[all …]
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/scm/ |
| H A D | match.scm | 1456 (pair? (cadar (cddadr s)))
1499 (null? (cadar (cdaadr s)))
1645 (cdar cadar . cddar)
1649 (cadar caadar . cdadar)
1712 (cadar cdar . car)
1720 (caadar cadar . car)
1728 (cdadar cadar . cdr)
1834 (cons (cadar g162) g160)
1881 (pair? (cadar args))
2104 (pair? (cadar args))
[all …]
|
| /dports/textproc/uim-el/uim-d1ac9d9/scm/ |
| H A D | match.scm | 1456 (pair? (cadar (cddadr s)))
1499 (null? (cadar (cdaadr s)))
1645 (cdar cadar . cddar)
1649 (cadar caadar . cdadar)
1712 (cadar cdar . car)
1720 (caadar cadar . car)
1728 (cdadar cadar . cdr)
1834 (cons (cadar g162) g160)
1881 (pair? (cadar args))
2104 (pair? (cadar args))
[all …]
|
| /dports/lang/ypsilon/ypsilon-0.9.6-update3/sitelib/ypsilon/ |
| H A D | match.scm | 442 (ordinary (cadar p))
861 (pair? (cadar (cddadr s)))
897 (null? (cadar (cdaadr s)))
1019 (cdar cadar . cddar)
1023 (cadar caadar . cdadar)
1061 (cadar cdar . car)
1069 (caadar cadar . car)
1077 (cdadar cadar . cdr)
1167 (cons (cadar g162) g160)
1437 (pair? (cadar args))
[all …]
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/scm/ |
| H A D | match.scm | 1456 (pair? (cadar (cddadr s)))
1499 (null? (cadar (cdaadr s)))
1645 (cdar cadar . cddar)
1649 (cadar caadar . cdadar)
1712 (cadar cdar . car)
1720 (caadar cadar . car)
1728 (cdadar cadar . cdr)
1834 (cons (cadar g162) g160)
1881 (pair? (cadar args))
2104 (pair? (cadar args))
[all …]
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/scm/ |
| H A D | match.scm | 1456 (pair? (cadar (cddadr s)))
1499 (null? (cadar (cdaadr s)))
1645 (cdar cadar . cddar)
1649 (cadar caadar . cdadar)
1712 (cadar cdar . car)
1720 (caadar cadar . car)
1728 (cdadar cadar . cdr)
1834 (cons (cadar g162) g160)
1881 (pair? (cadar args))
2104 (pair? (cadar args))
[all …]
|
| /dports/lang/slib/slib-3b6/ |
| H A D | trace.scm | 44 (not (eq? name (cadar debug:call-stack)))
49 (cdar cdar) (cadar cadar) ;trace will not trace parts
70 (eq? name (cadar debug:call-stack)))
95 (eq? name (cadar debug:call-stack)))
115 (eq? name (cadar debug:call-stack)))
|