(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)
t)))
-
(defun validp (object)
(with-described-object (object nil)
(every #'identity (mapcar (lambda (attribute)