From 56f742e5470609250c9c842b3ae258c267d3902d Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 18 May 2005 07:05:03 +0000
Subject: [PATCH] r10545: add usec

---
 sql/time.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sql/time.lisp b/sql/time.lisp
index d976733..8cc7724 100644
--- 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))
-        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)
-- 
2.34.1