diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2019-11-21 20:53:10 +0100 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2019-11-21 21:01:57 +0100 |
| commit | f1cc8644ada59ab3f3c68474bded83bcb488bf66 (patch) | |
| tree | 672de9607a07142a165570737bb6de101f2a5d3a | |
| parent | cf7b7db0e4040c17e05f851fd0e9d79bc173aafd (diff) | |
Use sys-put-string in filetest.lisp
| -rw-r--r-- | tests/filetest.lisp | 2 | ||||
| -rw-r--r-- | tests/filetest.out | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/tests/filetest.lisp b/tests/filetest.lisp index b37d2fe..ecc3ae8 100644 --- a/tests/filetest.lisp +++ b/tests/filetest.lisp @@ -1,3 +1,3 @@ #include "stdlib.lisp" -(print (read-file "tests/filetest.lisp")) +(sys-put-string stdout (read-file "tests/filetest.lisp")) diff --git a/tests/filetest.out b/tests/filetest.out index 7d444f6..ecc3ae8 100644 --- a/tests/filetest.out +++ b/tests/filetest.out @@ -1,4 +1,3 @@ #include "stdlib.lisp" -(print (read-file "tests/filetest.lisp")) - +(sys-put-string stdout (read-file "tests/filetest.lisp")) |