From f1cc8644ada59ab3f3c68474bded83bcb488bf66 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Thu, 21 Nov 2019 20:53:10 +0100 Subject: Use sys-put-string in filetest.lisp --- tests/filetest.lisp | 2 +- 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")) -- cgit v1.2.3-54-g00ecf