diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-12-23 09:21:39 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-12-23 09:21:39 -0800 |
| commit | 7fd45c0473e75eac56b4496cec89d6c4186aff18 (patch) | |
| tree | 733ab74bc42c35d611bcd4f60400ec52c88b04b8 /tests/011/special-1.txr | |
| parent | 92467a133e8b09c5317a403c57f4140e76d8b050 (diff) | |
| download | txr-7fd45c0473e75eac56b4496cec89d6c4186aff18.tar.gz txr-7fd45c0473e75eac56b4496cec89d6c4186aff18.tar.bz2 txr-7fd45c0473e75eac56b4496cec89d6c4186aff18.zip | |
Convert special-1 test from txr to tl.
* tests/011/special-1.txr: Renamed to
tests/011/special-1.tl and @(do ...) removed.
Diffstat (limited to 'tests/011/special-1.txr')
| -rw-r--r-- | tests/011/special-1.txr | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/tests/011/special-1.txr b/tests/011/special-1.txr deleted file mode 100644 index f3e92a03..00000000 --- a/tests/011/special-1.txr +++ /dev/null @@ -1,10 +0,0 @@ -@(do - (defmacro with-output-to-string ((var) . forms) - ^(let ((,var (make-string-output-stream))) - (progn ,*forms (get-string-from-stream ,var)))) - - (let ((x (with-output-to-string (*stdout*) - [format *stdout* "wo"] - (format t "rld!")))) - (format *stdout* "Hello, ") - (put-line x))) |