fixes from sunrise

[clinton/lisp-on-lines.git] / src / slot-presentations / date.lisp

diff --git a/src/slot-presentations/date.lisp b/src/slot-presentations/date.lisp
index 161b31c..ac34d9b 100644 (file)
--- 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))
 (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
   (: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))
     (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)))))