Add better reporting and new features

Units report expected results on end of input.
Opposite parser helps with the complexity explosion
on unit parsers.
Input and error printing has context.

1 files changed, 3 insertions, 3 deletions

diff --git a/main.lisp b/main.lisp
index c0fd49c..197f1b2 100644
--- a/main.lisp
+++ b/main.lisp
@@ -6,9 +6,9 @@
                                          :data data))))
     (if (parsing-p result)
       (let ((finished? (not (has-data? (parsing-left result)))))
-        (values (parsing-tree result) finished?))
-      (error (format nil "~a" result)))))
+        (values result finished?))
+      result)))
 
 (defmethod print-object ((obj failure) stream)
   (multiple-value-bind (line column) (line-and-column (failure-place obj))
-    (format stream "~a:~a: ~a" line column (failure-message obj))))
+    (format stream "~a:~a: ~a~&~a" line column (failure-message obj) (failure-place obj))))