X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/f56d6e7e926f9c3f968325e244794ff748435ac3..ddf67d6be45e1ea2d58aef8cceeba26f73ed1a0c:/src/standard-descriptions/validate.lisp

diff --git a/src/standard-descriptions/validate.lisp b/src/standard-descriptions/validate.lisp
index 6bfeaeb..3f423e8 100644
--- a/src/standard-descriptions/validate.lisp
+++ b/src/standard-descriptions/validate.lisp
@@ -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)