1.1--- a/lisp/ffi/tree-sitter/api.lisp	Sun Mar 17 22:21:29 2024 -0400
     1.2+++ b/lisp/ffi/tree-sitter/api.lisp	Mon Mar 18 21:47:33 2024 -0400
     1.3@@ -80,7 +80,7 @@
     1.4          (string-to-pass (if (plusp string-start)
     1.5                              (subseq string string-start string-end)
     1.6                              string))
     1.7-         (tree (ts-parser-parse-string parser string-to-pass string-length)))
     1.8+         (tree (ts-parser-parse-string parser string string-to-pass string-length)))
     1.9     (when (sb-alien:null-alien tree)
    1.10       (error 'cant-parse-string
    1.11              :string string