diff options
Diffstat (limited to 'test.lisp')
| -rw-r--r-- | test.lisp | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -37,13 +37,11 @@ ((match) (if (parsing-tree prefix) (fail "Reached prefix") (progn - (format t "prefix start: ~a, end: ~a~&" - (parsing-start prefix) - (parsing-end prefix)) + (format t "prefix place ~a~&" + (result-place prefix)) (unit))))) - (format t "match start: ~a, end: ~a~&" - (parsing-start match) - (parsing-end match)) + (format t "match place: ~a~&" + (result-place match)) match) "ezy") ((many (comp ((prefix (optional (literal "zy"))) |
