blob: fda312dab64a857502856ffef70228c9ba1390a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(load "../common")
(defmacro m () 42)
(test
(macrolet ((m (:form f) f))
(let ((n 3))
(macrolet ((m (:form f) f))
(let ((n 3))
(macrolet ((m (:form f) f))
(m))))))
42)
(defvarl x 0)
(defmacro mac-time-counter () (inc x))
(defsymacro s (mac-time-counter))
(mtest s 1
s 2
s 3)
(test (symacrolet ((a 42))
(labels ()
a))
42)
|
