(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
(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)))))
:attribute attribute))))
-
+(defun validate-true (instance attribute)
+
+ (warn "validate ~A ~A" instance attribute)
+ (let ((value (lol::attribute-value instance attribute)))
+ (warn "value is ~A" value)
+ (unless value
+
+ (signal 'attribute-validation-condition
+ :message (format nil "~A must be true."
+ (getf (attribute.plist attribute) :label))
+ :attribute attribute))))