X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;h=75f3faafbc9cebef9af607acfa4fa3e35be30333;hp=464d9cd00506388ee6a6a72de3eb09a728ae4ab6;hb=fd2493718d0e1114fcbe3dd578dab658ea383e81;hpb=76c718bea5a32b8252daeb5a487860d112011157

diff --git a/sql/time.lisp b/sql/time.lisp
index 464d9cd..75f3faa 100644
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -1274,7 +1274,7 @@ Will throw a hissy fit if the date string is a duration. Will ignore any precisi
 		      (char= #\. (char string 19))))
              (multiple-value-bind (parsed-usec usec-end)
                  (parse-integer string :start 20 :junk-allowed t)
-               (setf usec          parsed-usec
+               (setf usec          (or parsed-usec 0)
                      gmt-sec-offset (if (<= (+ 3 usec-end)  strlen)
                                         (let ((skip-to (or (position #\+ string :start 19)
                                                            (position #\- string :start 19))))