tons of small changes to bring this up to date with maxclaims 2.0

[clinton/lisp-on-lines.git] / src / standard-descriptions / validate.lisp

diff --git a/src/standard-descriptions/validate.lisp b/src/standard-descriptions/validate.lisp
index d98a787..6bfeaeb 100644 (file)
--- a/src/standard-descriptions/validate.lisp
+++ b/src/standard-descriptions/validate.lisp
@@ -50,7 +50,7 @@
   (setf (gethash name *validators*) fn))
 
 (defun find-validator (name)
-  (gethash name *validators*))
+   (gethash name *validators*))
 
 (register-validator 'boundp 
  (lambda (a v)
@@ -63,22 +63,23 @@
                                 :object (attribute-object a))))
        t)))
 
-(defun validp (object)
 
+(defun validp (object)
   (with-described-object (object nil)
     (every #'identity (mapcar (lambda (attribute)
-                                            (validate-attribute-value attribute (attribute-value attribute)))
-                                          (attributes (description-of object))))))
+                               (validate-attribute-value attribute (attribute-value attribute)))
+                             (attributes (description-of object))))))
 
 (define-layered-method lol::display-attribute-editor 
   :in-layer #.(defining-description 'validate)
   :after (attribute)
-  (let ((conditions (remove-if-not (lambda (a)
- (eq a attribute)) 
-                                    (gethash 
-                                     (attribute-object attribute) 
-                                     lol::*invalid-objects*)
-                                    :key #'car)))
+  (let ((conditions (remove-if-not 
+                    (lambda (a)
+                      (eq a attribute)) 
+                       (gethash 
+                        (attribute-object attribute) 
+                        lol::*invalid-objects*)
+                       :key #'car)))
     (dolist (c conditions)
       (<:div :style "color:red"
              (<:as-html