Commit 804f2b8e authored by pfdietz's avatar pfdietz

Added tests for free declarations in macrolet

parent 0c85f05e
......@@ -420,5 +420,26 @@
(macrolet () (expand-in-current-env (%m :good))))
:good)
;;; Free declarations in macrolet
(deftest macrolet.47
(let ((x :good))
(declare (special x))
(let ((x :bad))
(macrolet () (declare (special x)) x)))
:good)
(deftest macrolet.48
(let ((x :good))
(let ((y :bad))
(macrolet () (declare (ignore y)) x)))
:good)
(deftest macrolet.49
(let ((x :good))
(let ((y :bad))
(macrolet () (declare (ignorable y)) x)))
:good)
;;; TODO: more special declarations for other macrolet arguments
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment