Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'
[clinton/lisp-on-lines.git] / src / standard-descriptions / validate.lisp
index 5a5fb62..3f423e8 100644 (file)
@@ -1,8 +1,7 @@
 (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)
@@ -64,7 +63,6 @@
        t)))
 
 
-
 (defun validp (object)
   (with-described-object (object nil)
     (every #'identity (mapcar (lambda (attribute)