About time for some new regression tests.

* tests/011/macros-1.expected: New file.

* tests/011/macros-1.txr: New file.

* tests/011/macros-2.expected: New file.

* tests/011/macros-2.txr: New file.

* tests/011/special-1.expected: New file.

* tests/011/special-1.txr: New file.

1 files changed, 24 insertions, 0 deletions

diff --git a/tests/011/macros-1.txr b/tests/011/macros-1.txr
new file mode 100644
index 00000000..35b9d472
--- /dev/null
+++ b/tests/011/macros-1.txr
@@ -0,0 +1,24 @@
+@(do
+  (progn
+    (defmacro rem-num (:env menv some-form)
+      (let ((expanded (macroexpand some-form menv)))
+        (if (numberp (car expanded))
+          (cdr expanded)
+          some-form)))
+
+    (prinl
+      (macrolet ((foo () '(1 list 42))
+                 (bar () '(list 'a)))
+        (symacrolet ((x (bar)))
+          (list (rem-num (foo)) (rem-num x)))))
+
+    (prinl
+      (let ((x 0))
+        (symacrolet ((a (inc x)))
+          (list
+            (let* ((a a)
+                   (b a))
+              (list a b))
+            (let ((a a)
+                  (b a))
+              (list a b))))))))