diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2019-11-21 23:23:38 +0100 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2019-11-21 23:23:38 +0100 |
| commit | e99298d8719c71ff23921fdb9a79197880ac5bfc (patch) | |
| tree | 05cd9bba78dd00a7da29284a0d9e95739f4d0537 /tests | |
| parent | 206689c943ba93ad48ce2b41166ca1902ed920a9 (diff) | |
Rotate arguments to substr and allow negative length
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/stringtest.lisp | 2 | ||||
| -rw-r--r-- | tests/stringtest.out | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/stringtest.lisp b/tests/stringtest.lisp index aa4898c..57a7ec4 100644 --- a/tests/stringtest.lisp +++ b/tests/stringtest.lisp @@ -4,6 +4,6 @@ (for 0 (length str) (lambda (i) (if (= (mod i 60) 0) - (sys-put-string stdout (concat "<" (substr str i 10) ">")) + (sys-put-string stdout (concat "<" (substr i 10 str) ">")) '()))) (print "") diff --git a/tests/stringtest.out b/tests/stringtest.out index a0c457b..5011462 100644 --- a/tests/stringtest.out +++ b/tests/stringtest.out @@ -1 +1 @@ -<#include "><test.lisp"><d i 60) 0)><r str i 10> +<#include "><test.lisp"><d i 60) 0)><r i 10 str> |