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))
t)
(defmacro macro-for-constantp.11 (x) x)
(deftest constantp.11
(macrolet ((macro-for-constantp.11 (y)
(declare (ignore y))
*standard-input*))
(macrolet ((%m (&environment env)
(if (constantp '(macro-for-constantp.11 0) env)
:bad
:good)))
(%m)))
:good)
(deftest constantp.order.1
(let ((i 0))
(values
......
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