X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/6d0d8dfb8b53d8e7e39b2569943adbaed4babeaa..1e5d67977972cc7fd12fe9011ad8f5b35a5e11b2:/src/slot-presentations/date.lisp

diff --git a/src/slot-presentations/date.lisp b/src/slot-presentations/date.lisp
index 161b31c..ac34d9b 100644
--- a/src/slot-presentations/date.lisp
+++ b/src/slot-presentations/date.lisp
@@ -76,7 +76,7 @@
 (defclass %date-field (date-field)
   ((day :component (%integer-range-field :min-value 1 :max-value 31))
    (month :component (%integer-range-field :min-value 1 :max-value 12))
-   (year :component (%integer-range-field :min-value 2005 :max-value 2015) ))
+   (year :component (%integer-range-field :min-value 2006 :max-value 2015) ))
   (:metaclass standard-component-class))
 
 (defmethod shared-initialize :after ((field %date-field) slot-names
@@ -241,4 +241,4 @@ form."))
     (iterate
       (for value from (min-value range) to (max-value range))
       (<:option :value value :selected (= value (lisp-value range))
-                (<:as-html value)))))
\ No newline at end of file
+                (<:as-html value)))))