From 093a1b15dbdea1f10277414b964797c130719cce Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Fri, 4 Sep 2009 12:27:48 -0600 Subject: [PATCH] fix parse-iso-8601-duration always answering 0-length duration --- COPYING.CLSQL | 2 +- ChangeLog | 2 ++ sql/time.lisp | 5 ++--- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/COPYING.CLSQL b/COPYING.CLSQL index 141fd6c..d8bdee7 100644 --- a/COPYING.CLSQL +++ b/COPYING.CLSQL @@ -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 diff --git a/ChangeLog b/ChangeLog index 2164c6b..caf766b 100644 --- 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 * sql/db-interface.lisp: Fix spelling error (thanks to diff --git a/sql/time.lisp b/sql/time.lisp index 32c10b7..7024fe3 100644 --- a/sql/time.lisp +++ b/sql/time.lisp @@ -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)) -- 2.11.4.GIT