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

diff --git a/src/validation.lisp b/src/validation.lisp
index e118727..d013218 100644
--- a/src/validation.lisp
+++ b/src/validation.lisp
@@ -77,7 +77,17 @@ Returns T if the ATTRIBUTE-VALUE in INSTANCE passes all the validation functions
 		: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))))