Drop usage of defaction

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

diff --git a/src/validation/standard-validation.lisp b/src/validation/standard-validation.lisp
index 8856b07..3d616f2 100644 (file)
--- a/src/validation/standard-validation.lisp
+++ b/src/validation/standard-validation.lisp
@@ -50,7 +50,7 @@
               (<:li (<:as-html (message c)))))
            (funcall next-method))))
 
               (<:li (<:as-html (message c)))))
            (funcall next-method))))
 

-(defattribute string-attribute ()
+(defattribute base-attribute ()

   ()
   (:in-layer validate)
   (:default-properties
   ()
   (:in-layer validate)
   (:default-properties