| /dports/lang/chicken5/chicken-5.3.0/ |
| H A D | batch-driver.scm | 131 (unless (memq sym omit)
192 (when (memq 'static options)
196 (unit (memq 'unit options))
245 (do-lfa2 (memq 'lfa2 options))
249 (ssize (or (memq 'nursery options) (memq 'stack-size options)))
350 (when (memq 'raw options)
359 (when (memq 'local options)
364 (when (memq 'verbose options)
375 (when (memq 'unsafe options)
546 ((or (memq 'help options) (memq '-help options) (memq 'h options) (memq '-h options))
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/ |
| H A D | generic-x.el | 240 (if (memq system-type '(windows-nt ms-dos))
297 (when (memq 'samba-generic-mode generic-extras-enable-list)
313 (when (memq 'fvwm-generic-mode generic-extras-enable-list)
348 (if (memq 'xmodmap-generic-mode generic-extras-enable-list)
374 (when (memq 'inf-generic-mode generic-extras-enable-list)
386 (when (memq 'ini-generic-mode generic-extras-enable-list)
419 (when (memq 'reg-generic-mode generic-extras-enable-list)
436 (when (memq 'bat-generic-mode generic-extras-enable-list)
499 (when (memq 'vrml-generic-mode generic-extras-enable-list)
643 (when (memq 'rc-generic-mode generic-extras-enable-list)
[all …]
|
| H A D | whitespace.el | 1383 (when (memq 'empty whitespace-style)
1453 ((memq 'indentation whitespace-style)
1474 (when (memq 'trailing whitespace-style)
1736 27 (memq (car option) style))
1976 ((memq sym whitespace-style-value-list)
1977 (setq the-list (if (memq sym the-list)
2017 (and (memq 'face whitespace-active-style)
2383 (when (memq (car entry) whitespace-style)
2422 (cond ((memq 'cleanup whitespace-action)
2424 ((memq 'report-on-bogus whitespace-action)
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/ |
| H A D | generic-x.el | 246 (if (memq system-type '(windows-nt ms-dos))
305 (when (memq 'samba-generic-mode generic-extras-enable-list)
321 (when (memq 'fvwm-generic-mode generic-extras-enable-list)
356 (if (memq 'xmodmap-generic-mode generic-extras-enable-list)
381 (when (memq 'inf-generic-mode generic-extras-enable-list)
393 (when (memq 'ini-generic-mode generic-extras-enable-list)
426 (when (memq 'reg-generic-mode generic-extras-enable-list)
444 (when (memq 'bat-generic-mode generic-extras-enable-list)
508 (when (memq 'vrml-generic-mode generic-extras-enable-list)
657 (when (memq 'rc-generic-mode generic-extras-enable-list)
[all …]
|
| H A D | whitespace.el | 1378 (when (memq 'empty whitespace-style)
1448 ((memq 'indentation whitespace-style)
1469 (when (memq 'trailing whitespace-style)
1727 27 (memq (car option) style))
1970 ((memq sym whitespace-style-value-list)
1971 (setq the-list (if (memq sym the-list)
2011 (and (memq 'face whitespace-active-style)
2370 (when (memq (car entry) whitespace-style)
2409 (cond ((memq 'cleanup whitespace-action)
2411 ((memq 'report-on-bogus whitespace-action)
[all …]
|
| H A D | ls-lisp.el | 360 (if (memq ?n switches)
371 (cond ((memq ?A switches)
374 ((not (memq ?a switches))
409 (if (memq ?s switches)
441 (if (memq ?R switches)
467 (if (memq ?F switches)
660 (cond ((memq ?S switches)
669 ((memq ?X switches)
674 ((memq ?v switches)
786 (if (memq ?h switches)
[all …]
|
| /dports/lang/mit-scheme/mit-scheme-9.2/src/compiler/machines/spectrum/ |
| H A D | instr1.scm | 120 (if (or (memq 'S completers) (memq 'SM completers))
131 (memq 'SM compl-list)
132 (memq 'MA compl-list)
133 (memq 'MB compl-list))
145 ((or (memq 'EQ compl) (memq '= compl)) 1)
146 ((or (memq 'LT compl) (memq '< compl)) 2)
147 ((memq 'OD compl) 3)
148 ((memq 'TR compl) 4)
149 ((or (memq 'LTGT compl) (memq '<> compl)) 5)
150 ((or (memq 'GTEQ compl) (memq '>= compl)) 6)
[all …]
|
| H A D | lapopt.scm | 63 ((memq opcode '(COPY))
78 ((memq opcode '(STW STB STH))
86 ((memq opcode '(STWM STWS))
96 ((memq opcode '(LDI LDIL))
103 ((memq opcode '(ADDIL))
110 ((memq opcode '(NOP))
241 (not (memq (car instr)
251 (if (memq (caar instrs)
258 (if (memq (caar instrs)
317 (memq (caar next)
[all …]
|
| /dports/print/lilypond/lilypond-2.22.1/elisp/ |
| H A D | lilypond-font-lock.el | 161 (if (or (memq ?\{ not-punct) (memq ?\} not-punct))
164 (if (or (memq ?\[ not-punct) (memq ?\] not-punct))
167 (if (or (memq ?\< not-punct) (memq ?\> not-punct))
170 (if (or (memq ?\( not-punct) (memq ?\) not-punct))
195 (memq (char-before (point)) '( ?\) ?\] )))) ; found escape-char
196 ((memq (char-before (point)) '( ?\) ))
198 ((memq (char-before (point)) '( ?\] ))
200 ((memq (char-before (point)) '( ?\> ?\} ))
202 ((memq (char-after (point)) '( ?\( ))
204 ((memq (char-after (point)) '( ?\[ ))
[all …]
|
| /dports/print/lilypond-devel/lilypond-2.23.5/elisp/ |
| H A D | lilypond-font-lock.el | 161 (if (or (memq ?\{ not-punct) (memq ?\} not-punct))
164 (if (or (memq ?\[ not-punct) (memq ?\] not-punct))
167 (if (or (memq ?\< not-punct) (memq ?\> not-punct))
170 (if (or (memq ?\( not-punct) (memq ?\) not-punct))
195 (memq (char-before (point)) '( ?\) ?\] )))) ; found escape-char
196 ((memq (char-before (point)) '( ?\) ))
198 ((memq (char-before (point)) '( ?\] ))
200 ((memq (char-before (point)) '( ?\> ?\} ))
202 ((memq (char-after (point)) '( ?\( ))
204 ((memq (char-after (point)) '( ?\[ ))
[all …]
|
| /dports/textproc/uim-qt5/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-gtk/sigscheme-beb8fbd/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-gtk/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-gtk3/sigscheme-beb8fbd/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-m17nlib/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-m17nlib/sigscheme-beb8fbd/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-qt5/sigscheme-beb8fbd/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/textproc/uim-gtk3/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/japanese/uim-anthy/sigscheme-beb8fbd/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/japanese/uim-anthy/uim-d1ac9d9/sigscheme/test/ |
| H A D | test-member.scm | 61 (assert-false (tn) (memq 'a '()))
62 (assert-false (tn) (memq '() '()))
63 (assert-equal? (tn) '(()) (memq '() '(())))
71 (assert-equal? (tn) cdr0 (memq elm0 lst))
72 (assert-equal? (tn) cdr1 (memq elm1 lst))
73 (assert-equal? (tn) cdr2 (memq elm2 lst))
74 (assert-equal? (tn) cdr3 (memq elm3 lst))
75 (assert-false (tn) (memq 'none lst))
91 (memq (list (string #\a #\B #\c)
101 (assert-error (tn) (lambda () (memq 'a 'a)))
[all …]
|
| /dports/print/auctex/auctex-12.2/ |
| H A D | toolbar-x.el | 185 (memq (car temp-opt-list)
231 (if (memq prop inner-props)
234 (when (memq prop outer-props)
311 (while (memq key used-symbols)
321 `(if (memq ,count ,var)
338 (while (memq key used-symbols)
861 (cadr (memq :save
864 (not (memq :variable
880 (cadr (memq :variable
959 (list 'memq count
[all …]
|
| /dports/editors/emacs-devel/emacs-4d1968b/lisp/mail/ |
| H A D | rfc2231.el | 96 (when (and (memq c ttoken)
97 (not (memq c stoken))
115 (if (and (memq c ttoken)
116 (not (memq c stoken)))
128 (if (not (memq c ntoken))
234 (if (memq coding-system '(nil ascii))
255 ((or (memq (following-char) control)
261 ((not (memq (following-char) ascii))
277 (memq (following-char) control)
278 (memq (following-char) tspecial)
[all …]
|
| /dports/editors/emacs/emacs-27.2/lisp/mail/ |
| H A D | rfc2231.el | 96 (when (and (memq c ttoken)
97 (not (memq c stoken))
115 (if (and (memq c ttoken)
116 (not (memq c stoken)))
128 (if (not (memq c ntoken))
253 ((or (memq (following-char) control)
254 (memq (following-char) tspecial)
259 ((not (memq (following-char) ascii))
275 (memq (following-char) control)
276 (memq (following-char) tspecial)
[all …]
|
| /dports/japanese/ddskk/ddskk-16.2/nicola/ |
| H A D | skk-nicola.el | 778 (memq next
789 (memq char
791 (memq next
817 (memq char
819 (memq next
842 (memq char
844 (memq next
850 (memq char
852 (memq next
928 (memq next
[all …]
|
| /dports/lang/gambit-c/gambit-4.9.3/tests/unit-tests/04-list/ |
| H A D | member.scm | 3 (check-equal? (memq '() '()) #f)
4 (check-equal? (memq '() '(1 2)) #f)
5 (check-equal? (memq '() '(1 ())) '(()))
6 (check-equal? (memq '() '(1 () ())) '(() ()))
7 (check-equal? (memq 100000000000000000000 '(1 100000000000000000000 3)) #f)
8 (check-equal? (memq (cons 1 2) '(1 (1 . 2) ())) #f)
10 (check-tail-exn type-exception? (lambda () (memq '() #f)))
12 (check-tail-exn wrong-number-of-arguments-exception? (lambda () (memq)))
13 (check-tail-exn wrong-number-of-arguments-exception? (lambda () (memq '())))
14 (check-tail-exn wrong-number-of-arguments-exception? (lambda () (memq '() '() =)))
|