fix parse-iso-8601-duration always answering 0-length duration
authorKevin Rosenberg <kevin@rosenberg.net>
Fri, 4 Sep 2009 18:27:48 +0000 (4 12:27 -0600)
committerKevin Rosenberg <kevin@rosenberg.net>
Fri, 4 Sep 2009 18:27:48 +0000 (4 12:27 -0600)
COPYING.CLSQL
ChangeLog
sql/time.lisp

index 141fd6c..d8bdee7 100644 (file)
@@ -1,4 +1,4 @@
-CLSQL is written and Copyright (c) 2002-2004 by Kevin M. Rosenberg and is
+CLSQL is written and Copyright (c) 2002-2009 by Kevin M. Rosenberg and is
 based on the MaiSQL package written and Copyright (c) 1999-2001 by
 Pierre R. Mai. In addition, CLSQL contains code from the UncommonSQL
 project Copyright (C) 1999-2003 by onShore Development, Inc and code
index 2164c6b..caf766b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,8 @@
        *default-database-type* (thanks to Desmond O. Chang)
        * sql/transactions.lisp: Improved handlining of nested
        transactions (thanks to Eli Naeher)
+       * sql/time.lisp: Commit patch to fix parse-iso-8601-duration
+       (thanks to Stephen Compall)
 
 31 Aug 2009  Kevin Rosenberg <kevin@rosenberg.net>
        * sql/db-interface.lisp: Fix spelling error (thanks to
index 32c10b7..7024fe3 100644 (file)
@@ -1,8 +1,6 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; A variety of structures and function for creating and
 ;;;; manipulating dates, times, durations and intervals for
 ;;;; CLSQL.
@@ -1251,8 +1249,9 @@ Will throw a hissy fit if the date string is a duration. Will ignore any precisi
           (index (length string))
           (months/minutes nil))
       (loop
-       (multiple-value-bind (duration next-index duration-type)
+       (multiple-value-bind (duration end next-index duration-type)
            (iso-8601-duration-subseq string index)
+         (declare (ignore end))
          (case duration-type
            (:years
             (incf years duration))