| /dports/math/reduce/Reduce-svn5758-src/psl/dist/util/ |
| H A D | macroexpand.sl | 4 % Description: tools for expanding macros in forms
21 % Redistribution and use in source and binary forms, with or without
82 (*macro-displace nil))
104 ((eq fcn-type 'macro) (macroexpand-macro form macros-to-expand))
109 (de macroexpand-macro (form macros-to-expand)
121 (de macroexpand2-list (forms macros-to-expand)
122 (for (in form forms)
123 (collect (macroexpand2 form macros-to-expand))
138 (collect (macroexpand2-list V L))
143 ,.(foreach v in (cddr u) collect
[all …]
|
| H A D | step.sl | 92 (defvar step-pending-forms () "Buffer of forms being evaluated")
118 (step-pending-forms ())
138 (let ((step-pending-forms (cons step-form step-pending-forms)))
140 (let ((macro-call (macro-p (safe-first step-form))))
141 (when macro-call
142 (setq step-form (funcall macro-call step-form))
148 ;; Print the non macro-expanded form
185 (prettyprint (first step-pending-forms))
220 (display-aux step-pending-forms 10))
275 step-level step-pending-forms)
[all …]
|
| H A D | obj-dmethod.sl | 13 % Redistribution and use in source and binary forms, with or without
44 % that are bound by prog and lambda special forms.
48 % special forms a la macroexpand to avoid wiping out function names with
230 % the substituted forms.
250 (collect (&substitute-for-symbols V var-names)))))))
254 (collect
256 (collect (&substitute-for-symbols W var-names)))))))
259 (collect (&substitute-for-symbols V var-names))))
260 (t (cons (car U) % Don't substitute in the car of normal forms.
262 (collect (&substitute-for-symbols V var-names)))))
[all …]
|
| H A D | defobject.sl | 13 % Redistribution and use in source and binary forms, with or without
64 (foreach obj in objlist collect
79 % A send macro is defined to give uniform reference to operations, so
101 (foreach methodid in methodids collect
105 % The send macro handles varying arglist lengths.
241 % Construct macro names in default pattern if necessary.
255 % Define the Selector methods, collect defFlavor slot args.
257 (foreach slotspec in (rest spec) collect
264 (setq createargs (foreach slot in &initableslots collect
316 % Process slot specifications, returning slot names with optional init forms.
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/comp/ |
| H A D | pass-1.sl | 140 (collect (recursive-pass-1 x vbls))
322 (collect (constant-value x))
497 (def-pass-1-macro catch (tag . forms)
501 (when (and (null (cdr forms))
502 (or (atom (car forms))
503 (equal (car (car forms)) 'quote)
514 (progn ,@forms)))
753 (pass-1-map-collect list fcn nil)
758 (pass-1-map-collect list fcn t)
1164 (de pass-1-map-collect (list fcn carflag)
[all …]
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
| H A D | unportable.tst | 39 ;; 6.1.1.4 Whether initial value forms of for/as variables include
44 (let ((vars '(1 2))) (loop for vars on vars collect (length vars)))
48 (let ((vars '(1 2 3))) (loop for i from 0 below 5 for vars on vars collect (length vars)))
62 (loop for x in a collect (funcall x)))
68 (loop for x in a collect (funcall x)))
141 ;; define-symbol-macro
147 (define-symbol-macro first-special-then-macro *print-case*)
152 (define-symbol-macro first-macro-then-special *print-case*)
153 first-macro-then-special
216 ;; 5.1.2.3 Values forms as places
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/manual/ |
| H A D | 09-ctrl.tex | 133 be one of two forms.\\
154 forms.}
628 (collect (add1 v)))
631 (collect (add1 v) result))
641 (collect v)
654 (collect <form> <variable>)
662 (collect v))
878 (collect (sqrt v))
962 (for (in x l) (from i 1) (collect (cons i x)))
973 Possible forms are:
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ |
| H A D | ir1-translators.lisp | 84 (somesub (forms)
85 (when (consp forms)
175 (collect ((tags)
220 (collect ((tags)
339 `(,name macro .
387 `(,name . (macro . ,expansion))))))
666 (collect ((vars)
778 (collect ((names)
993 (collect ((sets))
1029 (aver (eq (car leaf) 'macro))
[all …]
|
| H A D | ir1tran.lisp | 300 `(macro . (the ,type ,expansion))))
727 ((cons (eql macro)) ; symbol-macro
947 forms (cdr forms)))))))
1103 (collect ((arg-lvars))
1109 (setf forms (cdr forms))
1252 (collect ((restr nil cons)
1297 (aver (eq (car var) 'macro))
1325 (collect ((res nil cons))
1351 (collect ((new-venv nil cons))
1370 (aver (eq (car var) 'macro))
[all …]
|
| /dports/math/reduce/Reduce-svn5758-src/packages/rlisp88/ |
| H A D | loops88.red | 1 module loops88; % Rlisp88 looping forms other than the FOR statement.
5 % Redistribution and use in source and binary forms, with or without
55 symbolic macro procedure repeat88 u;
88 vars := nconc(for each j in y collect j . 'scalar,
100 whilekeywords!* := '(collect do finally initially returns with);
119 symbolic macro procedure while88 u;
124 if body := atsoc('collect,u)
157 vars := nconc(for each j in y collect j . 'scalar,
|
| H A D | mstruct.red | 7 % Redistribution and use in source and binary forms, with or without
57 macro. The default value is the structure name followed by a `P'.
65 macro is to have a (CONSTRUCTOR NIL) option.
96 macro procedure defstruct u;
102 collect if idp slot then {slot,nil} else slot;
157 dflts := for each x in slot_forms collect
168 ''macro,
179 for each d in dflts collect find_struct_key(car d, u, cdr d);
206 macro procedure structfetch u;
214 macro procedure rsetf u; expandrsetf(cadr u, caddr u);
[all …]
|
| /dports/lang/fennel/fennel-1.0.0/ |
| H A D | changelog.md | 8 * Allow `collect` to take two body arguments instead of requiring `values`
10 * Add `:into` clause to `collect` and `icollect`
65 * **Add separate `fennel.macro-path` for searching for macro modules
95 clause in all iteration forms to end iteration early.
135 * Add table "comprehension" macros (`collect`/`icollect`)
245 * Fix a bug in macros returning forms of a different length from their input
259 * Add new `macroexpand` helper to expand macro forms during compilation
260 * Add `macrodebug` utility macro for printing expanded macro forms in REPL
314 * Add `macro` to make defining a single macro easier
370 * Prevent creation of bindings that collide with special forms and macros
[all …]
|
| H A D | reference.md | 3 These are all the built-in macros and special forms recognized by the
11 macros and special forms; it is an implementation detail.
23 only ASCII forms of whitespace and numerals are supported.
702 ### `do` evaluate multiple forms returning last value
814 ### `collect`, `icollect` table comprehension macros
818 The `collect` macro takes a "iterator binding table" in the format
826 (collect [k v (pairs {:apple "red" :orange "orange"})]
862 Both `collect` and `icollect` take an `:into` clause which allows you
878 Like `collect` and `icollect`, it takes an iterator binding table
1076 A macro module exports any number of functions which take code forms
[all …]
|
| /dports/databases/pgloader3/cxml-20200610-git/contrib/ |
| H A D | xhtmlgen.lisp | 34 make-html-process (key macro special
38 macro ; the macro to define this
58 (defmacro with-html (sink &rest forms &environment env)
60 ,(process-html-forms forms env)))
68 (defun process-html-forms (forms env)
86 (do* ((xforms forms (cdr xforms))
117 collect
|
| /dports/math/reduce/Reduce-svn5758-src/psl/dist/nonkernel/ |
| H A D | loop-macros.sl | 19 % Redistribution and use in source and binary forms, with or without
55 % Possible forms are:
58 % (foreach x in u collect (foo x)) --> (mapcar u ...)
62 % (foreach x on u collect (foo u)) --> (maplist u ...)
83 ((eq action 'collect) (if (eq mod 'in)
105 %. Iteration macro
127 (foreach x on (cdr u) collect (if (null (cdr x))
|
| /dports/math/reduce/Reduce-svn5758-src/packages/groebner/ |
| H A D | hilbertp.red | 3 % Redistribution and use in source and binary forms, with or without
30 baslt:= for each p in cdr bas collect
50 a:=for i:=0 : grad collect coeffn(joa,var,i);
85 collect if eqexpr j then !*eqn2a j else j;
106 macro procedure functionindex2 u;
113 macro procedure getrarray u;
126 macro procedure putrarray u;
148 explist:= for each fi in f collect vdpevlmon fi;
165 collect if eqexpr j then !*eqn2a j else j;
169 w:=for each j in w collect f2vdp numr simp j;
[all …]
|
| /dports/lang/fennel/fennel-1.0.0/src/ |
| H A D | fennel.fnl | 72 "Return a table describing the callable forms known by Fennel."
73 (let [body? [:when :with-open :collect :icollect :lambda :λ
74 :macro :match :accumulate]
75 binding? [:collect :icollect :each :for :let :with-open :accumulate]
76 define? [:fn :lambda :λ :var :local :macro :macros :global]
84 (tset out k {:macro? true :body-form? (utils.member? k body?)
108 :macro-path utils.macro-path
124 :macro-loaded specials.macro-loaded
125 :macro-searchers specials.macro-searchers
141 :macroLoaded specials.macro-loaded
|
| /dports/devel/cl-asdf/asdf-a58828745a610c1af841a86587ba197707c89eb3/uiop/doc/ |
| H A D | docstrings.lisp | 145 while line collect line))
516 collect line)))
650 (defmacro with-maybe-section (index &rest forms)
811 collect doc))
817 collect doc))
839 (defmacro with-texinfo-file (pathname &body forms)
849 (flet ((macro (name)
854 (macro '&optional)
855 (macro '&rest)
856 (macro '&key)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/swindle/ |
| H A D | swindle.scrbl | 27 improved @racket[define] and @racket[let] forms. (Available
31 forms: @racket[pset!], @racket[shift!], @racket[rotate!], and some
37 @item{Easy macro-defining macros --- simple @racket[syntax-rules] macros with
42 @item{A @racket[collect] macro that provides very sophisticated list
70 (CLOS has also a lot of macro code). Some of the macros (especially
122 @item{@racket[swindle/clos] (module) --- Convenient macro wrappers for
|
| /dports/databases/pgloader3/iterate-20200610-git/doc/ |
| H A D | iterate.texinfo | 9 @macro iter {}
11 @end macro
20 @end macro
22 @macro impnote {text}
26 @end macro
39 @macro clauseu {name1}
42 @end macro
47 @end macro
52 @end macro
54 @macro k {what}
[all …]
|
| /dports/databases/pgloader3/alexandria-20200925-git/doc/ |
| H A D | docstrings.lisp | 145 while line collect line))
527 collect line)))
661 (defmacro with-maybe-section (index &rest forms)
810 collect doc))
816 collect doc))
841 (defmacro with-texinfo-file (pathname &body forms)
854 (flet ((macro (name)
858 (macro 'optional)
859 (macro 'rest)
860 (macro 'key)
[all …]
|
| /dports/devel/cl-alexandria/alexandria-f35e232ceb2ada8d10e7fdf27ccac07f781eea0e/doc/ |
| H A D | docstrings.lisp | 145 while line collect line))
527 collect line)))
661 (defmacro with-maybe-section (index &rest forms)
810 collect doc))
816 collect doc))
841 (defmacro with-texinfo-file (pathname &body forms)
854 (flet ((macro (name)
858 (macro 'optional)
859 (macro 'rest)
860 (macro 'key)
[all …]
|
| /dports/databases/pgloader3/iterate-20200610-git/doc/tex/ |
| H A D | iterate-bare.tex | 45 In what follows I describe a macro package, called \iter, that
79 (collect el)))
83 forms. Any legal Lisp form is allowed, as well as certain forms that
135 (collect key into keys)
136 (collect item into items)
230 (collect (cons el i)))
325 appearance. \looP\ is a macro written originally for MacLisp and in
335 (collect el)))
344 collect el)
399 do in \looP, but in \iter\ you could simply write a macro:
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/script/ |
| H A D | scheme2c | 10 ;;; Redistribution and use in source and binary forms, with or without
59 (define (collect-imports&exprs exprs)
131 :need-macro? need-eval?)))))
238 (let-values (((imports exprs) (collect-imports&exprs exprs)))
247 :need-macro? need-eval?
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/ |
| H A D | doc.scm | 252 (macro . ,expand-macro)
474 (define (collect)
530 (define (collect)
543 (reverse (collect)))
756 ((memq x '(procedure macro)) (section-number 'subsubsection))
833 '(subsubsection procedure macro)
912 (((or 'procedure 'macro) x)
1085 (let ((forms (file->sexp-list file)))
1086 (if (not (and (pair? forms) (pair? (car forms))
1087 (memq (caar forms) '(define-library library))))
[all …]
|