diff options
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 "") |