src/pset-parse.lisp: Report `{' and `<' as expected tokens in errors.

For fragments and types, respectively.

diff --git a/src/pset-parse.lisp b/src/pset-parse.lisp
index d2bcc70..a2199b6 100644 (file)
--- a/src/pset-parse.lisp
+++ b/src/pset-parse.lisp
@@ -120,7 +120,7 @@
                                     (values (cons :type (car dc))
                                             t t))))
                           (t
-                           (values (list :int :id :char :string #\?)
+                           (values (list :int :id :char :string #\? #\{ #\<)
                                    nil nil)))))
                 (or (seq (#\+) add)
                     (seq (#\-) sub)