| /dports/lang/guile1/guile-1.8.8/test-suite/tests/ |
| H A D | alist.test | 155 (pass-if "assq-set!"
157 (set! a (assq-set! a 'another 'stupid))
162 (pass-if "assq-set! add"
164 (set! a (assq-set! a 'fickle 'pickle))
171 (set! a (assv-set! a 'another 'boring))
177 (set! a (assv-set! a 'whistle '(while you work)))
183 (set! b (assoc-set! b "this" "has"))
189 (set! b (assoc-set! b "flugle" "horn"))
196 (pass-if-exception "assq-set! deformed"
199 (assq-set! deformed 'cold '(very cold)))
[all …]
|
| /dports/lang/guile2/guile-2.2.7/test-suite/tests/ |
| H A D | alist.test | 136 (pass-if "assq-set!"
138 (set! a (assq-set! a 'another 'stupid))
143 (pass-if "assq-set! add"
145 (set! a (assq-set! a 'fickle 'pickle))
152 (set! a (assv-set! a 'another 'boring))
158 (set! a (assv-set! a 'whistle '(while you work)))
164 (set! b (assoc-set! b "this" "has"))
170 (set! b (assoc-set! b "flugle" "horn"))
175 (pass-if-equal "assq-set! deformed"
176 (assq-set! deformed 'cold '(very cold))
[all …]
|
| H A D | strings.test | 129 (string-set! s2 0 #\F)
136 (string-set! s2 0 #\F)
143 (string-set! s2 0 #\F)
150 (string-set! s2 0 #\F)
544 ;; string-set!
547 (with-test-prefix "string-set!"
551 (string-set! (string-copy "") 0 #\x))
555 (string-set! (string-copy "") 123 #\x))
571 (string-set! s 4 #\G)
576 (string-set! s 4 (integer->char #xfe))
[all …]
|
| H A D | symbols.test | 50 (assq-ref (%symbol-dump s) 'stringbuf-chars))))
58 (= (assq-ref (%symbol-dump s1) 'hash)
59 (assq-ref (%symbol-dump s2) 'hash))))
64 (not (= (assq-ref (%symbol-dump s1) 'hash)
65 (assq-ref (%symbol-dump s2) 'hash))))))
71 (not (assq-ref (%symbol-dump s) 'stringbuf-wide))))
75 (not (assq-ref (%symbol-dump s) 'stringbuf-wide))))
79 (not (assq-ref (%symbol-dump s) 'stringbuf-wide))))
83 (assq-ref (%symbol-dump s) 'stringbuf-wide)))
87 (assq-ref (%symbol-dump s) 'stringbuf-wide)))))
[all …]
|
| /dports/lang/guile/guile-3.0.7/test-suite/tests/ |
| H A D | alist.test | 136 (pass-if "assq-set!"
138 (set! a (assq-set! a 'another 'stupid))
143 (pass-if "assq-set! add"
145 (set! a (assq-set! a 'fickle 'pickle))
152 (set! a (assv-set! a 'another 'boring))
158 (set! a (assv-set! a 'whistle '(while you work)))
164 (set! b (assoc-set! b "this" "has"))
170 (set! b (assoc-set! b "flugle" "horn"))
175 (pass-if-equal "assq-set! deformed"
176 (assq-set! deformed 'cold '(very cold))
[all …]
|
| H A D | strings.test | 126 (string-set! s2 0 #\F)
133 (string-set! s2 0 #\F)
140 (string-set! s2 0 #\F)
147 (string-set! s2 0 #\F)
541 ;; string-set!
544 (with-test-prefix "string-set!"
548 (string-set! (string-copy "") 0 #\x))
552 (string-set! (string-copy "") 123 #\x))
568 (string-set! s 4 #\G)
573 (string-set! s 4 (integer->char #xfe))
[all …]
|
| H A D | symbols.test | 50 (assq-ref (%symbol-dump s) 'stringbuf-chars))))
58 (= (assq-ref (%symbol-dump s1) 'hash)
59 (assq-ref (%symbol-dump s2) 'hash))))
64 (not (= (assq-ref (%symbol-dump s1) 'hash)
65 (assq-ref (%symbol-dump s2) 'hash))))))
71 (not (assq-ref (%symbol-dump s) 'stringbuf-wide))))
75 (not (assq-ref (%symbol-dump s) 'stringbuf-wide))))
79 (not (assq-ref (%symbol-dump s) 'stringbuf-wide))))
83 (assq-ref (%symbol-dump s) 'stringbuf-wide)))
87 (assq-ref (%symbol-dump s) 'stringbuf-wide)))))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/gnus/ |
| H A D | nnoo.el | 113 (set (cadar vars) (symbol-value (caar vars)))
128 (set (cadar vars) (symbol-value (caar vars)))
162 (def (assq backend nnoo-definition-alist))
196 (set (caar state) (cdar state))
201 (unless (assq (car def) bvariables)
206 (set (car def) (symbol-value (cadr def)))
207 (set (car def) (cadr def)))))
243 (nth 1 (assq backend nnoo-state-alist)))
256 (set (car (pop defs)) nil)))))
261 (delq (assq backend nnoo-state-alist)
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/gnus/ |
| H A D | nnoo.el | 114 (set (cadar vars) (symbol-value (caar vars)))
129 (set (cadar vars) (symbol-value (caar vars)))
164 (def (assq backend nnoo-definition-alist))
198 (set (caar state) (cdar state))
203 (unless (assq (car def) bvariables)
208 (set (car def) (symbol-value (cadr def)))
209 (set (car def) (cadr def)))))
245 (nth 1 (assq backend nnoo-state-alist)))
258 (set (car (pop defs)) nil)))))
263 (delq (assq backend nnoo-state-alist)
[all …]
|
| /dports/net-im/jabber.el/emacs-jabber-0.8.92/ |
| H A D | jabber-vcard.el | 223 (cdr (assq 'N parsed))))
232 (cdr (assq 'ADR parsed)))
239 (cdr (assq 'TEL parsed)))
246 (cdr (assq 'EMAIL parsed)))
425 '(set :tag "Decomposited name"
431 :value (cdr (assq 'N parsed))))
440 (set :tag "Type"
448 (set
464 :value (cdr (assq 'ADR parsed))))
472 (set :tag "Type"
[all …]
|
| H A D | jabber-compose.el | 37 (set (make-local-variable 'jabber-widget-alist) nil)
69 (let ((recipients (widget-value (cdr (assq :recipients jabber-widget-alist))))
70 (subject (widget-value (cdr (assq :subject jabber-widget-alist))))
71 (text (widget-value (cdr (assq :text jabber-widget-alist)))))
|
| /dports/x11-wm/sawfish/sawfish_1.13.0/lisp/sawfish/wm/util/ |
| H A D | gtkrc.jl | 76 (set-process-error-stream process nil)
119 (cdr (assq 'active tem))
124 (cdr (assq 'active tem))
129 (cdr (assq 'active tem))
133 (cdr (assq 'prelight tem))
134 (cdr (assq 'active tem))
135 (cdr (assq 'selected tem)))))
139 (cdr (assq 'active tem))
144 (cdr (assq 'active tem))
153 (set var (mapcar (lambda (x)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/nanopass/tests/ |
| H A D | helpers.ss | 10 empty-set singleton-set
197 (and (assq x list-of-user-primitives) #t)))
201 (and (assq x list-of-system-primitives) #t)))
210 [(or (assq x list-of-user-primitives)
211 (assq x list-of-system-primitives)) =>
218 [(or (assq x list-of-user-primitives)
219 (assq x list-of-system-primitives)) =>
226 [(or (assq x list-of-user-primitives)
227 (assq x list-of-system-primitives)) =>
268 set
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/nanopass/tests/ |
| H A D | helpers.ss | 10 empty-set singleton-set
197 (and (assq x list-of-user-primitives) #t)))
201 (and (assq x list-of-system-primitives) #t)))
210 [(or (assq x list-of-user-primitives)
211 (assq x list-of-system-primitives)) =>
218 [(or (assq x list-of-user-primitives)
219 (assq x list-of-system-primitives)) =>
226 [(or (assq x list-of-user-primitives)
227 (assq x list-of-system-primitives)) =>
268 set
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/nanopass/tests/ |
| H A D | helpers.ss | 10 empty-set singleton-set
197 (and (assq x list-of-user-primitives) #t)))
201 (and (assq x list-of-system-primitives) #t)))
210 [(or (assq x list-of-user-primitives)
211 (assq x list-of-system-primitives)) =>
218 [(or (assq x list-of-user-primitives)
219 (assq x list-of-system-primitives)) =>
226 [(or (assq x list-of-user-primitives)
227 (assq x list-of-system-primitives)) =>
268 set
[all …]
|
| /dports/lang/ypsilon/ypsilon-0.9.6-update3/heap/boot/macro/ |
| H A D | library.scm | 209 ((('for set . phases) . more)
211 (loop (list set) imports)))
212 ((('only set . ids) . more)
218 ((('except set . ids) . more)
224 ((('rename set . alist) . more)
240 ((('prefix set id) . more)
269 ((('for set . _) . more)
271 ((('only set . _) . more)
273 ((('except set . _) . more)
275 ((('rename set . _) . more)
[all …]
|
| /dports/japanese/navi2ch/navi2ch-faebfd1/ |
| H A D | navi2ch-board.el | 182 (cdr (assq 'uri board2))))
211 (uri (cdr (assq 'uri alist)))
212 (id (cdr (assq 'id alist)))
499 (assq 'hide board)
500 (assq 'time board)
501 (assq 'logo board)))))
585 (setcdr (assq 'hide board)
588 (when (assq 'bookmark board)
599 (set m (not (symbol-value m)))
600 (set m nil)))
[all …]
|
| H A D | navi2ch-message.el | 461 (set (make-local-variable 'fill-paragraph-function)
463 (set (make-local-variable 'paragraph-separate)
465 (set (make-local-variable 'paragraph-start)
467 (set (make-local-variable 'auto-fill-inhibit-regexp)
469 (set (make-local-variable 'font-lock-defaults)
607 (let ((sbj (cdr (assq 'subject x)))
620 (setq subject (cdr (assq 'subject article))))))
628 (sbj (or subject (cdr (assq 'subject article))))
723 (if (string= val (cdr (assq src x)))
724 (throw 'loop (cdr (assq dst x)))))))
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/examples/ |
| H A D | interpret.ss | 30 (cons 'assq assq)
46 (cons 'set-car! set-car!)
47 (cons 'set-cdr! set-cdr!)
65 ;; env, using assq. Assumes var is bound in env.
68 (cdr (assq var env))))
75 (set-cdr! (assq var env) val)))
98 ((set!)
109 (set! interpret
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/examples/ |
| H A D | interpret.ss | 30 (cons 'assq assq)
46 (cons 'set-car! set-car!)
47 (cons 'set-cdr! set-cdr!)
65 ;; env, using assq. Assumes var is bound in env.
68 (cdr (assq var env))))
75 (set-cdr! (assq var env) val)))
98 ((set!)
109 (set! interpret
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/examples/ |
| H A D | interpret.ss | 30 (cons 'assq assq)
46 (cons 'set-car! set-car!)
47 (cons 'set-cdr! set-cdr!)
65 ;; env, using assq. Assumes var is bound in env.
68 (cdr (assq var env))))
75 (set-cdr! (assq var env) val)))
98 ((set!)
109 (set! interpret
|
| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/srfi-mosh/lib.boot/nmosh/ |
| H A D | minidebug.nmosh.ss | 33 (set! syms (append syms l)))
49 (set! syms (append syms l)))
138 ((assq e libsyms) #t)
139 ((assq e dbg-syms) #t)
140 ((assq e intsyms) #f)
190 (set! intsyms (load-intsyms))
191 (set! libsyms (load-symfiles)))
198 (set! minidebug-key #t)
217 ((assq e libsyms) => cdr)
218 ((assq e dbg-syms) => cdr)
[all …]
|
| /dports/lang/mosh/mosh-0.2.7/lib/nmosh/debugger/ |
| H A D | core.nmosh.sls | 37 (set! syms (append syms l)))
53 (set! syms (append syms l)))
98 ((assq e libsyms) => (lambda (p) (cons 'lib p)))
99 ((assq e dbg-syms) => (lambda (p) (cons 'dbg p)))
100 ((assq e intsyms) => (lambda (p) (cons 'int p)))
150 ((assq e libsyms) #t)
151 ((assq e dbg-syms) #t)
152 ((assq e intsyms) #f)
202 (set! intsyms (load-intsyms))
203 (set! libsyms (load-symfiles)))
[all …]
|
| /dports/lang/librep/librep_0.92.7/lisp/rep/vm/compiler/ |
| H A D | utils.jl | 89 (fluid-set output-stream (stdout-file))
162 (if (assq name (fluid defuns))
194 (let ((cell (assq name (fluid defuns))))
223 (null (assq name (fluid defuns)))
230 (cond ((assq name (fluid defuns))
248 ((decl (assq name (fluid defuns))))
263 (setq decl (assq name (fluid defuns))))
302 (list 'fluid-set 'current-stack
341 (assq form (fluid const-env))
356 (t (cdr (assq form (fluid const-env))))))
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/ |
| H A D | font-core.el | 163 (set (make-local-variable 'char-property-alias-alist)
166 (let ((elt (assq 'face char-property-alias-alist)))
174 (set (make-local-variable 'char-property-alias-alist)
176 (let ((elt (assq 'face char-property-alias-alist)))
254 (set :menu-tag "mode specific" :tag "modes"
|