r10545: add usec

diff --git a/sql/time.lisp b/sql/time.lisp
index d97673310eb341a2a6bcefca859cfe8a3f5e872e..8cc77241b14ac8a2c31b6a06e43854799c270484 100644 (file)
--- a/sql/time.lisp
+++ b/sql/time.lisp
@@ -1129,7 +1129,7 @@ formatted date string."
 (defun syntax-parse-iso-8601 (string)
   ;; use strlen to determine if fractional seconds are present in timestamp
   (let ((strlen (length string))
 (defun syntax-parse-iso-8601 (string)
   ;; use strlen to determine if fractional seconds are present in timestamp
   (let ((strlen (length string))

-        year month day hour minute second gmt-sec-offset)
+        year month day hour minute second usec gmt-sec-offset)

     (handler-case
         (progn
           (setf year           (parse-integer string :start 0 :end 4)
     (handler-case
         (progn
           (setf year           (parse-integer string :start 0 :end 4)