diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-03-01 08:59:45 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-03-01 08:59:45 -0800 |
commit | 323e8d69a775176ef9f412c19de479d44d81235d (patch) | |
tree | 62cb1567586471df50c413a68b71b080ff03c720 /tests/011/special-1.txr | |
parent | 39c7a72827a80326b7095331eceaa67661b2c6b9 (diff) | |
download | txr-323e8d69a775176ef9f412c19de479d44d81235d.tar.gz txr-323e8d69a775176ef9f412c19de479d44d81235d.tar.bz2 txr-323e8d69a775176ef9f412c19de479d44d81235d.zip |
* 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.
Diffstat (limited to 'tests/011/special-1.txr')
-rw-r--r-- | tests/011/special-1.txr | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |