| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
| H A D | bind.tst | 217 (symbol-macrolet ((x (list 'symbol)))
223 (symbol-macrolet ((x (list 'symbol)))
278 (macrolet ((x () '(list 'symbol)))
349 ;; macrolet.43
354 (eval `(macrolet ((%m (-x-)
368 ;; macrolet.44
373 (eval `(macrolet ((%m (-x-)
387 ;; macrolet.45
392 (eval `(macrolet ((%m ((-x-))
406 ;; macrolet.47, labels.47
[all …]
|
| H A D | macro8.tst | 100 (macrolet ((foo (&environment env)
105 (macrolet ((bar () :beep))
405 (symbol-macrolet ((a-sm (first x)))
409 (symbol-macrolet ((a-sm (first x)))
412 (symbol-macrolet ((b-sm (alpha x y)))
418 (symbol-macrolet ((b-sm (alpha x y))
422 (symbol-macrolet ((b-sm (alpha x y))
444 (symbol-macrolet ((foo 12))
449 (symbol-macrolet ((foo 12))
450 (macrolet ((bar (x) (+ x foo)))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/tests/ |
| H A D | walk.impure.lisp | 154 (test-util:with-test (:name (:walk macrolet))
158 (macrolet ((foo (x) (list x) ''inner))
200 (macrolet ((foo () (list x) ''inner))
873 (test-util:with-test (:name (:walk macrolet 1))
876 (take-it-out-for-a-test-walk (macrolet ((macrolet-1 (a b) (list a b)))
896 (test-util:with-test (:name (:walk macrolet 2))
915 (test-util:with-test (:name (:walk macrolet progn 1))
919 (macrolet ((bar (a)
945 (test-util:with-test (:name (:walk macrolet progn 2))
949 (macrolet ((bar (s)
[all …]
|
| H A D | compiler-3.impure-cload.lisp | 14 (macrolet ((line () `(multiple-value-call 'cons (compile-file-line))))
30 (macrolet ()
44 (macrolet ((macro (x)
|
| H A D | macro-policy-test.lisp | 30 (macrolet ((local-foo (arg)
34 (macrolet ((local-foo (arg)
|
| H A D | arith.impure.lisp | 103 (macrolet ((nc-list ()
110 (macrolet ((frob (y)
114 (macrolet ((frob (y)
118 (macrolet ((frob (y)
124 (macrolet ((frob (y)
|
| H A D | condition.pure.lisp | 28 (macrolet ((opaque-error (arg) `(error ,arg)))
49 (macrolet ((opaque-error (arg) `(error ,arg)))
116 (macrolet ((test (handler)
201 (macrolet
227 (macrolet
|
| H A D | character.pure.lisp | 122 (macrolet ((assert-coerce-type-error (object type)
132 (macrolet ((assert-coercion (object type)
163 (macrolet ((frob (predicate yes)
|
| /dports/lang/sbcl/sbcl-1.3.13/contrib/sb-cltl2/ |
| H A D | tests.lisp | 55 (macrolet ((bar (key)
78 (equalp (macroexpand-all '(macrolet ((w () 'x))
99 (macrolet ((frob (&environment env form)
105 (macrolet ((frob (&environment env form)
110 (macrolet ((frob (&environment env form)
116 (macrolet ((frob (&environment env form)
123 (macrolet ((frob (&environment env form)
131 (macrolet ((frob (&environment env form)
141 (macrolet ((def (x)
398 (macrolet ((thingy () nil))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/contrib/sb-gmp/ |
| H A D | bench.lisp | 10 (macrolet ((tstfun (f a b)
49 (macrolet ((tstfun (f a b)
87 (macrolet ((tstfun (f a b)
127 (macrolet ((tstfun (f a b)
167 (macrolet ((tstfun (f a)
203 (macrolet ((tstfun (f a b)
244 (macrolet ((tstfun (f a b)
|
| /dports/databases/pgloader3/flexi-streams-20200925-git/ |
| H A D | decode.lisp | 155 (macrolet ((iterate (set-place)
196 (macrolet ((unget (form)
216 (code-char (macrolet ((unget (form)
298 (macrolet ((read-next-byte ()
351 (macrolet ((read-next-byte ()
382 (macrolet ((read-next-byte ()
432 (macrolet ((read-next-byte ()
448 (macrolet ((read-next-byte ()
|
| H A D | encode.lisp | 70 (macrolet ((octet-writer (form)
93 (macrolet ((octet-writer (form)
114 (macrolet ((iterate (&body output-forms)
158 (macrolet ((octet-writer (form)
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/arm/ |
| H A D | float.lisp | 38 (macrolet ((frob (vop sc move-macro)
67 (macrolet ((frob (name sc &rest args)
79 (macrolet ((frob (name sc double-p value)
94 (macrolet ((frob (name sc stack-sc double-p)
306 (macrolet ((frob (name sc ptype)
331 (macrolet ((frob (name inst translate sc type)
396 (macrolet ((frob (name sc ptype)
404 (macrolet ((frob (translate cond sname dname is-=)
440 (macrolet ((frob (name sc ptype constant-type)
449 (macrolet ((frob (translate cond sname dname is-=)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/x86/ |
| H A D | alloc.lisp | 23 (macrolet ((def (reg)
37 (macrolet ((def (reg)
69 (macrolet ((frob-cons-routines ()
|
| /dports/databases/pgloader3/esrap-20211020-git/test/ |
| H A D | tests.lisp | 28 (macrolet ((is-invalid-expr (expression)
54 (macrolet ((does-not-warn (condition-class &body body)
71 (macrolet ((signals-style-warning (expression)
396 (macrolet ((test-case (input expected
765 (macrolet ((test-case (expected expression input)
777 (macrolet ((times-2 (expr)
818 (macrolet ((test-case (input expected)
826 (macrolet ((test-case (input expected)
843 (macrolet ((test-case (expected expression input)
918 (macrolet
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/arm64/ |
| H A D | float.lisp | 34 (macrolet ((frob (vop sc)
97 (macrolet ((frob (name sc stack-sc double-p)
272 (macrolet ((frob (name sc ptype)
282 (macrolet ((frob (op inst sname scost dname dcost)
297 (macrolet ((frob (name inst translate sc type)
361 (macrolet ((frob (name sc ptype)
369 (macrolet ((frob (translate cond sname dname is-=)
398 (macrolet ((frob (name sc ptype constant-type)
407 (macrolet ((frob (translate cond sname dname is-=)
423 (macrolet ((frob (name translate from-sc from-type to-sc to-type)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/code/ |
| H A D | late-cas.lisp | 10 (macrolet ((def (name lambda-list ref &optional set)
44 (macrolet ((modular (fun a b)
60 (macrolet ((def-frob (name op type slot)
|
| /dports/textproc/cl-meta/meta/ |
| H A D | meta.lisp | 167 (macrolet ((match (x)
179 (macrolet ((match (x)
188 (macrolet ((match (x)
|
| /dports/lang/sbcl/sbcl-1.3.13/src/interpreter/ |
| H A D | special-forms.lisp | 455 (macrolet ((eval-it (eval-fn)
473 (macrolet ((eval-it (tag eval-fn)
742 (macrolet ((new-env ()
799 (macrolet
842 (macrolet
858 (macrolet
1087 (macrolet ((defspecial* (operator)
1134 (macrolet ((not-a-function (name)
1179 (macrolet
1212 (macrolet
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/alpha/ |
| H A D | float.lisp | 43 (macrolet ((frob (vop sc)
72 (macrolet ((frob (name sc &rest args)
84 (macrolet ((frob (name sc double-p value)
103 (macrolet ((frob (name sc stack-sc double-p)
379 (macrolet ((frob (name sc ptype)
391 (macrolet ((frob (op sinst sname scost dinst dname dcost)
413 (macrolet ((frob (name inst translate sc type)
460 (macrolet ((frob (name sc ptype)
468 (macrolet ((frob (translate complement sname dname eq)
483 (macrolet
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/mips/ |
| H A D | float.lisp | 57 (macrolet ((frob (vop sc format)
86 (macrolet ((frob (name sc &rest args)
98 (macrolet ((frob (name sc double-p value)
128 (macrolet ((frob (name sc stack-sc format double-p)
453 (macrolet ((frob (name sc ptype)
463 (macrolet ((frob (op sname scost dname dcost)
478 (macrolet ((frob (name inst translate format sc type)
518 (macrolet ((frob (name sc ptype)
541 (macrolet ((frob (name translate
577 (macrolet ((frob (name from-sc from-type from-format)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ppc/ |
| H A D | float.lisp | 41 (macrolet ((frob (vop sc)
71 (macrolet ((frob (name sc &rest args)
83 (macrolet ((frob (name sc double-p value)
97 (macrolet ((frob (name sc stack-sc double-p)
363 (macrolet ((frob (name sc ptype)
388 (macrolet ((frob (name inst translate sc type)
426 (macrolet ((frob (name sc ptype)
434 (macrolet ((frob (translate yep nope sname dname)
449 (macrolet ((frob (name translate inst to-sc to-type)
480 (macrolet ((frob (name translate inst to-sc to-type)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ |
| H A D | saptran.lisp | 64 (macrolet ((defsapref (fun value-type)
101 (macrolet ((def (sap-fun int-fun)
121 (macrolet ((def (fun &optional setp value-type)
180 (macrolet ((def (fun args 32-bit 64-bit)
|
| /dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
| H A D | clos-class3.lisp | 2497 (macrolet ((form () *<metaobject>-defclass*))
2501 (macrolet ((form () *<standard-stablehash>-defclass*))
2505 (macrolet ((form () *<specializer>-defclass*))
2509 (macrolet ((form () *<super-class>-defclass*))
2517 (macrolet ((form () *<defined-class>-defclass*))
2522 (macrolet ((form () *<built-in-class>-defclass*))
2529 (macrolet ((form () *<slotted-class>-defclass*))
2535 (macrolet ((form () *<standard-class>-defclass*))
2540 (macrolet ((form () *<structure-class>-defclass*))
2559 (macrolet ((form () *<slot-definition>-defclass*))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/hppa/ |
| H A D | float.lisp | 80 (macrolet ((frob (name sc &rest args)
99 (macrolet ((frob (name sc offset)
142 (macrolet
419 (macrolet ((frob (name sc zero-sc ptype)
429 (macrolet ((frob (translate op sname scost dname dcost)
444 (macrolet ((frob (name translate sc type inst)
463 (macrolet ((frob (name translate sc type zero-tn)
537 (macrolet ((frob (name sc zero-sc ptype)
586 (macrolet ((frob (name translate to-sc to-type)
630 (macrolet ((frob (trans from-sc from-type inst note)
[all …]
|