-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
*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
;;;; -*- 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.
(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))