diff options
author | Tom Smeding <tom.smeding@gmail.com> | 2019-11-21 12:57:59 +0100 |
---|---|---|
committer | Tom Smeding <tom.smeding@gmail.com> | 2019-11-21 12:57:59 +0100 |
commit | 15ebcc764c30c18f41f179d589ad1ad5a45194f1 (patch) | |
tree | e83ebfbd8b2dc5e8524bf3fd647f55b9b8702941 /tests/stringtest.lisp | |
parent | d4c554f62b007df2763c73ba7fd2b13814c186bc (diff) |
Better string and IO support
Diffstat (limited to 'tests/stringtest.lisp')
-rw-r--r-- | tests/stringtest.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/stringtest.lisp b/tests/stringtest.lisp new file mode 100644 index 0000000..aa4898c --- /dev/null +++ b/tests/stringtest.lisp @@ -0,0 +1,9 @@ +#include "stdlib.lisp" + +(define str (read-file "tests/stringtest.lisp")) + +(for 0 (length str) (lambda (i) + (if (= (mod i 60) 0) + (sys-put-string stdout (concat "<" (substr str i 10) ">")) + '()))) +(print "") |