| /dports/editors/emacs/emacs-27.2/lisp/gnus/ |
| H A D | nndoc.el | 261 (entry (cdr (assq article nndoc-dissection-alist)))
402 (set (pop vars) nil)))
405 (while (assq 'guess (setq defs (cdr (assq nndoc-article-type
410 (set (intern (format "nndoc-%s" (caar defs)))
551 (let ((entry (cdr (assq article nndoc-dissection-alist)))
586 (let* ((entry (cdr (assq article nndoc-dissection-alist)))
615 (let ((entry (cdr (assq article nndoc-dissection-alist)))
652 (setq entry (assq 'mime-digest nndoc-type-alist))
726 (let ((entry (cdr (assq article nndoc-dissection-alist)))
805 (let ((entry (cdr (assq article nndoc-dissection-alist)))
[all …]
|
| H A D | gnus-spec.el | 115 (entry (assq type gnus-format-specs))
119 (set
142 (cdr (assq 'version gnus-format-specs)))))
157 (setq entry (cdr (assq type gnus-format-specs)))
161 (set (intern (format "gnus-%s-line-format-spec" type))
180 (set (intern (format "gnus-%s-line-format-spec" type)) val)
183 (unless (assq 'version gnus-format-specs)
545 ((setq elem (cdr (assq (or extended-spec spec) spec-alist))))
635 (set (intern (format "gnus-%s-line-format-spec" type))
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/test/ |
| H A D | data.jl | 124 (test (equal '(a 1) (assq 'a e)))
125 (test (equal '(b 2) (assq 'b e)))
126 (test (null (assq 'd e))))
127 (test (null (assq (list 'a) '(((a)) ((b)) ((c))))))
129 (test (equal '(5 7) (assq 5 '((2 3) (5 7) (11 13))))))
136 (x kar set-kar!)
149 (set-kar! pare 3)
|
| H A D | framework.jl | 31 set-self-test-action
61 (let ((action (cdr (assq type action-alist))))
73 (fluid-set failed-tests (1+ (fluid failed-tests))))
81 (define (set-self-test-action type action)
82 (let ((cell (assq type action-alist)))
95 (define (set-1 x y) (symbol-table-set self-tests x y))
99 (define define-self-test set-1)
100 (define autoload-self-test (make-autoloader ref-1 set-1))
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/progmodes/ |
| H A D | idlw-help.el | 291 (set (make-local-variable 'idlwave-help-def-pos) nil)
292 (set (make-local-variable 'idlwave-help-args) nil)
293 (set (make-local-variable 'idlwave-help-in-header) nil))
420 (assq (idlwave-sintern-sysvartag tag)
421 (cdr (assq 'tags entry))))))
422 (link (nth 1 (assq 'link entry))))
443 (let* ((entry (assq
447 (link (nth 1 (assq 'link entry))))
618 (funcall what 'set word))
761 link (nth 1 (assq 'link entry))))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/progmodes/ |
| H A D | idlw-help.el | 320 (set (make-local-variable 'idlwave-help-def-pos) nil)
321 (set (make-local-variable 'idlwave-help-args) nil)
322 (set (make-local-variable 'idlwave-help-in-header) nil))
445 (assq (idlwave-sintern-sysvartag tag)
446 (cdr (assq 'tags entry))))))
447 (link (nth 1 (assq 'link entry))))
468 (let* ((entry (assq
472 (link (nth 1 (assq 'link entry))))
643 (funcall what 'set word))
786 link (nth 1 (assq 'link entry))))
[all …]
|
| H A D | cfengine.el | 1204 (flist (assq 'functions syntax)))
1213 (and w (assq (intern w) flist))))))
1226 (rtype (cdr (assq 'returnType def)))
1227 (plist (cdr (assq 'parameters def)))
1229 (variadic (eq t (cdr (assq 'variadic def)))))
1238 (let* ((type (cdr (assq 'type p)))
1312 (flist (assq 'functions syntax)))
1323 (set (make-local-variable 'comment-start) "# ")
1324 (set (make-local-variable 'comment-start-skip)
1387 (set (make-local-variable 'compile-command)
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/1/ |
| H A D | test.sld | 96 …(test-assert (member (let ((count 0)) (map (lambda (ignored) (set! count (+ count 1)) count) '(a b…
98 …(test '#(0 1 4 9 16) (let ((v (make-vector 5))) (for-each (lambda (i) (vector-set! v i (* i i))) '…
105 (pair-for-each (lambda (x) (set! a (cons x a))) '(a b c))
149 (test '(a 1) (assq 'a e))
150 (test '(b 2) (assq 'b e))
151 (test #f (assq 'd e))
152 (test #f (assq (list 'a) '(((a)) ((b)) ((c)))))
154 ;;(test '*unspecified* (assq 5 '((2 3) (5 7) (11 13))))
184 ;;(test '*unspecified* (set-car! (f) 3))
185 (test-error (set-car! (g) 3)))
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.rnrs/ |
| H A D | r5rs.ss | 8 set!
43 vector-fill! vector-length vector-ref vector-set! vector? zero?
73 set-car! set-cdr!
77 assoc assv assq member memv memq
81 string-set! string-fill!
91 (import (only (core primitives) set!)
93 set! ; because should not be exported for expand
112 (only (rnrs mutable-pairs) set-car! set-cdr!)
113 (only (rnrs lists) assoc assv assq member memv memq)
114 (only (rnrs mutable-strings) string-set! string-fill!)
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/net/ |
| H A D | eudc.el | 229 (set var val))
278 (set var val))
280 (set var val))
282 (set var val)))))
322 (let ((trans (assq (car attribute)
337 (setq trans (assq attribute
384 (let ((match (assq attribute eudc-user-attribute-names-alist)))
540 (assq
579 (consp (assq attr rec)))
717 cell (assq key query))
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/xrepl-doc/xrepl/ |
| H A D | doc-utils.rkt | 21 (set! c (e '(for*/list ([cs (in-list (reverse commands-dict))]
34 (or (and (assq name (commands)) name)
54 (set! documented (cons name documented))
56 (apply values (cond [(assq name (commands)) => cdr]
|
| /dports/print/yatex/yatex1.82/ |
| H A D | yatexpkg.el | 117 (if (setq sameas (assq 'same-as element)) ;non-recursive retrieval
137 (l (cdr (assq (or key 'option) (assoc pkg list))))
138 (recur (cdr (assq 'same-as (assoc pkg list)))))
162 (set (make-local-variable 'YaTeX-package-resolved-list)
|
| /dports/japanese/navi2ch/navi2ch-faebfd1/ |
| H A D | navi2ch-board-misc.el | 180 (set (intern (concat val-str "-function")) (intern func-str))
447 (artid (cdr (assq 'artid article))))
454 (member (cdr (assq 'artid article))
461 (artid (cdr (assq 'artid article))))
480 (setq artid (cdr (assq 'artid article)))
532 (string= (cdr (assq 'artid article))
600 (setq old-file (cdr (assq 'logo board)))
847 (cdr (assq 'artid
955 (cond ((cdr (assq 'artid articles)) ; $B%9%l(B alist
957 ((cdr (assq 'artid (car articles))) ; $B%9%l(B alist $B$N(B list
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/gnus/ |
| H A D | gnus-spec.el | 115 (entry (assq type gnus-format-specs))
119 (set
142 (cdr (assq 'version gnus-format-specs)))))
157 (setq entry (cdr (assq type gnus-format-specs)))
161 (set (intern (format "gnus-%s-line-format-spec" type))
180 (set (intern (format "gnus-%s-line-format-spec" type)) val)
183 (unless (assq 'version gnus-format-specs)
545 ((cdr (assq (or extended-spec spec) spec-alist)))
635 (set (intern (format "gnus-%s-line-format-spec" type))
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/ |
| H A D | windows.jl | 219 (set-window-type w 'unframed)
241 (set-window-type w 'dock)
338 (set-input-focus w))
349 (let ((base (cdr (assq (if (eq dimension 'x)
351 (minimum (cdr (assq (if (eq dimension 'x)
353 (maximum (or (cdr (assq (if (eq dimension 'x)
355 (inc (or (cdr (assq (if (eq dimension 'x)
379 (assq 'min-width hints))) 1))
380 (x-inc (or (cdr (assq 'width-inc hints)) 1))
382 (assq 'min-height hints))) 1))
[all …]
|
| H A D | frames.jl | 642 (cdr (assq type
655 (let ((cell (assq name frame-styles)))
666 (setq cell (assq name frame-style-files))
675 (unless (assq name frame-styles)
680 (when (assq name frame-styles)
706 (let ((style-fun (cdr (assq style frame-styles))))
961 (item (assq class (symbol-value var)))
964 (if (setq tem (assq key (cdr item)))
972 (item (assq class fpcs)))
994 (let ((cell (assq class frame-part-classes))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/ |
| H A D | nadvice.el | 96 (let* ((name (cdr (assq 'name (advice--props flist))))
198 (let ((fd (or (cdr (assq 'depth props)) 0))
200 (or (cdr (assq 'depth (advice--props main))) 0))))
206 (let ((desc (assq where advice--where-alist)))
216 (cdr (assq 'name (advice--props definition))))
219 (cdr (assq 'name (advice--props definition)))
244 (equal function (cdr (assq 'name props))))
256 (set (make-local-variable var) val)))
352 (let* ((name (cdr (assq 'name props)))
|
| /dports/editors/emacs/emacs-27.2/lisp/emacs-lisp/ |
| H A D | nadvice.el | 109 (let* ((name (cdr (assq 'name (advice--props flist))))
183 (let ((fd (or (cdr (assq 'depth props)) 0))
185 (or (cdr (assq 'depth (advice--props main))) 0))))
191 (let ((desc (assq where advice--where-alist)))
201 (cdr (assq 'name (advice--props definition))))
204 (cdr (assq 'name (advice--props definition)))
229 (equal function (cdr (assq 'name props))))
241 (set (make-local-variable var) val)))
319 (let* ((name (cdr (assq 'name props)))
|
| /dports/editors/emacs/emacs-27.2/lisp/ |
| H A D | reveal.el | 124 (cdr (assq inv buffer-invisibility-spec))))
134 (cdr (assq inv buffer-invisibility-spec)))))
218 (set (make-local-variable 'search-invisible) t)
|
| /dports/lang/racket/racket-8.3/share/pkgs/games/parcheesi/ |
| H A D | admin-gui.rkt | 41 (set-box! (cdr (assq color latest-dice)) roll)
200 (cadr (assq this-move-color dice)))
201 (let ([accept (cdr (assq this-move-color gui-player-accept-move-buttons))]
202 [reset (cdr (assq this-move-color gui-player-reset-move-buttons))])
276 (let ([accept (cdr (assq this-move-color gui-player-accept-move-buttons))]
277 [reset (cdr (assq this-move-color gui-player-reset-move-buttons))])
316 [dice (cadr (assq color dice))])
346 [color-index (cdr (assq color color-order))])
396 (let ([e (assq color gui-player-control-panels)])
613 (define (set-box/f! b v) (when (box? b) (set-box! b v)))
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/vm/ |
| H A D | bytecode-defs.jl | 38 ;; Instruction set version
45 (cdr (assq name bytecode-alist)))
48 (or (cdr (assq name bytecode-alist))
60 (slot-set . #x30)
66 (%set . #x41)
69 (init-bind . #x44) ;initialise a new set of bindings
70 (unbind . #x45) ;unbind all bindings in the top set
132 (assq . #x82)
202 (fluid-set . #xc0)
211 (set . #xc8)
|
| /dports/sysutils/cfengine-devel/core-d08ae9eff/contrib/ |
| H A D | cfengine.el | 80 `(set (make-local-variable ',var) ,val))))
1234 (flist (assq 'functions syntax)))
1243 (and w (assq (intern w) flist))))))
1256 (rtype (cdr (assq 'returnType def)))
1257 (plist (cdr (assq 'parameters def)))
1259 (variadic (eq t (cdr (assq 'variadic def)))))
1268 (let* ((type (cdr (assq 'type p)))
1342 (flist (assq 'functions syntax)))
1362 (set (make-local-variable 'comment-start) "# ")
1363 (set (make-local-variable 'comment-start-skip)
[all …]
|
| /dports/lang/racket/racket-8.3/collects/setup/ |
| H A D | option.rkt | 9 set-flag-params
20 ;; a way to define a parameter that is set from an alist of names and values
31 ;; parameters to set
38 (define x (assq (car name+param) flags))
45 (define-syntax-rule (set-flag-params flags more ...)
46 (set-flag-params* flags (list* (cons 'more more) ... (defined-flag-params))))
47 (define (set-flag-params* flags flag-params)
49 (cond [(assq (car name+param) flags)
56 ;; been set to null to avoid loading bytecode:
|
| /dports/lang/racket-minimal/racket-8.3/collects/setup/ |
| H A D | option.rkt | 9 set-flag-params
20 ;; a way to define a parameter that is set from an alist of names and values
31 ;; parameters to set
38 (define x (assq (car name+param) flags))
45 (define-syntax-rule (set-flag-params flags more ...)
46 (set-flag-params* flags (list* (cons 'more more) ... (defined-flag-params))))
47 (define (set-flag-params* flags flag-params)
49 (cond [(assq (car name+param) flags)
56 ;; been set to null to avoid loading bytecode:
|
| /dports/editors/emacs/emacs-27.2/lisp/net/ |
| H A D | eudc.el | 240 (set var val))
289 (set var val))
291 (set var val))
293 (set var val)))))
333 (let ((trans (assq (car attribute)
348 (setq trans (assq attribute
395 (let ((match (assq attribute eudc-user-attribute-names-alist)))
559 (assq
599 (consp (assq attr rec)))
738 cell (assq key query))
[all …]
|