Commit c2a12a17 authored by pfdietz's avatar pfdietz
Browse files

Test that constantp looks at the right macro (using the environment), if it expands macros

parent 6a9959f8
......@@ -64,6 +64,20 @@
(notnot-mv (constantp 'pi))
(defmacro macro-for-constantp.11 (x) x)
(deftest constantp.11
(macrolet ((macro-for-constantp.11 (y)
(declare (ignore y))
(macrolet ((%m (&environment env)
(if (constantp '(macro-for-constantp.11 0) env)
(deftest constantp.order.1
(let ((i 0))
Supports Markdown
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