tests/011/macros-3.tl


1
2
3
4
5
6
7
8
9
10
11
12

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