Skip to content
Snippets Groups Projects
Commit f4b596e2 authored by pfdietz's avatar pfdietz
Browse files

Added a test on which CMU CL is failing.

parent 6dba77b8
No related branches found
No related tags found
No related merge requests found
......@@ -35,6 +35,13 @@
(boundp 'x)))
nil)
(deftest progv.6a
(let ((x 0))
(declare (special x))
(progv '(x) () (setq x 1))
x)
0)
(deftest progv.7
(progv '(x y z) '(1 2 3)
(locally (declare (special x y z))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment