diff --git a/src/transforms.lisp b/src/transforms.lisp index 7603f57..9c639a4 100644 --- a/src/transforms.lisp +++ b/src/transforms.lisp @@ -32,7 +32,7 @@ ((null date-string) nil) ((string= date-string "") nil) ;; day is 00 - ((string= date-string "0000-00-00" :start1 8 :start2 8 ) nil) + ((string= date-string "0000-00-00" :start1 8 :end1 10 :start2 8 ) nil) ;; month is 00 ((string= date-string "0000-00-00" :start1 5 :end1 7 :start2 5 :end2 7) nil) ((string= date-string "0000-00-00") nil)