X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftime.lisp;fp=sql%2Ftime.lisp;h=7024fe31c13e4c61010e54f8acec7482cc493ad2;hp=32c10b70227f3dfc1950d3a459b8f1b1e506677d;hb=093a1b15dbdea1f10277414b964797c130719cce;hpb=064e2f358705080563d4faf20cd0a724c8c85bac

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))