parse date and system fix

package.lisp

@@ -21,6 +21,7 @@
            #:entry-description
            #:entry-comment
            #:entry-postings
+           #:parse-date
            #:parse-journal
            #:parse-query
            #:entries

parsing.lisp

@@ -110,6 +110,9 @@
         (.identity (get-ut (or year default-year *default-year*) month day))
       (error () (.fail)))))
 
+(defun parse-date (text &optional default-year)
+  (parse (.simple-date default-year) text))
+
 (defun .status ()
   (.is 'member '(#\! #\*)))
 

pta-ledger.asd

@@ -16,7 +16,7 @@
                :smug)
   :serial t
   :components ((:file "package")
+               (:file "pta-ledger")
                (:file "parsing")
-               (:file "render")
-               (:file "pta-ledger"))
+               (:file "render"))
   :description "plain text accounting")