From 323e8d69a775176ef9f412c19de479d44d81235d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 1 Mar 2014 08:59:45 -0800 Subject: * tests/011/special-1.txr: Add some coverage for evaluation of a re-bound special under the Lisp-1 evaluation of the [ ] notation. This test case would have failed three commits back. --- ChangeLog | 7 +++++++ tests/011/special-1.txr | 3 ++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 87855a90..25e11ec1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2014-03-01 Kaz Kylheku + + * tests/011/special-1.txr: Add some coverage for evaluation + of a re-bound special under the Lisp-1 evaluation of the [ ] + notation. This test case would have failed three commits + back. + 2014-03-01 Kaz Kylheku * eval.c (expand_qquote): Another bugfix: not recognizing a trailing diff --git a/tests/011/special-1.txr b/tests/011/special-1.txr index 23c15b48..72ab844a 100644 --- a/tests/011/special-1.txr +++ b/tests/011/special-1.txr @@ -4,6 +4,7 @@ (progn ,*forms (get-string-from-stream ,var)))) (let ((x (with-output-to-string (*stdout*) - (format t "world!")))) + [format *stdout* "wo"] + (format t "rld!")))) (format *stdout* "Hello, ") (put-line x))) -- cgit v1.2.3