Add some more examples.

This commit is contained in:
Dimitri Fontaine 2013-09-09 22:30:53 +02:00
parent 6485101a16
commit a48706d638

View File

@ -31,3 +31,8 @@
(register-groups-bind (date) (register-groups-bind (date)
(scanner "2013-09-08T00:02:03.123456Z+02:00") (scanner "2013-09-08T00:02:03.123456Z+02:00")
date)) date))
(let ((scanner (parse-abnf-grammar *timestamp-abnf*
:timestamp
:registering-rules '(:full-date))))
(scan-to-strings scanner "2013-09-08T00:02:03.123456Z+02:00"))