tests/011/macros-3.tl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

(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)

(defvar x 0)
(defmacro mac-time-counter () (inc x))
(defsymacro s (mac-time-counter))

(mtest s 1
       s 2
       s 3)