Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'

[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..3f423e8 100644 (file)
--- a/src/standard-descriptions/validate.lisp
+++ b/src/standard-descriptions/validate.lisp
@@ -1,8 +1,7 @@
 (in-package :lisp-on-lines)
 
 (in-package :lisp-on-lines)
 

-(defclass #.(defining-description 'validate) () 
-  ((invalid-object-condition-map :layered t :special t ))
-  (:metaclass standard-description-class))
+(define-description validate () 
+  ((invalid-object-condition-map :layered t :special t )))

 
 (define-layered-class standard-attribute
   :in-layer #.(defining-description 'validate)
 
 (define-layered-class standard-attribute
   :in-layer #.(defining-description 'validate)


@@ -50,7 +49,7 @@
   (setf (gethash name *validators*) fn))
 
 (defun find-validator (name)
   (setf (gethash name *validators*) fn))
 
 (defun find-validator (name)

-  (gethash name *validators*))
+   (gethash name *validators*))

 
 (register-validator 'boundp 
  (lambda (a v)
 
 (register-validator 'boundp 
  (lambda (a v)


@@ -63,22 +62,23 @@
                                 :object (attribute-object a))))
        t)))
 
                                 :object (attribute-object a))))
        t)))
 

-(defun validp (object)

 
 

+(defun validp (object)

   (with-described-object (object nil)
     (every #'identity (mapcar (lambda (attribute)
   (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)
 
 (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 
     (dolist (c conditions)
       (<:div :style "color:red"
              (<:as-html