massive refactoring in preparation of release.

[clinton/lisp-on-lines.git] / src / validate-email-address.lisp

diff --git a/src/validate-email-address.lisp b/src/validate-email-address.lisp
index 8f3712d..ede7ae1 100644 (file)
--- a/src/validate-email-address.lisp
+++ b/src/validate-email-address.lisp
@@ -22,5 +22,5 @@
         (not (< 0 (length value))))
        (signal 'attribute-validation-condition
                :message (format nil "You must enter a value for ~A."
         (not (< 0 (length value))))
        (signal 'attribute-validation-condition
                :message (format nil "You must enter a value for ~A."

-                             (getf (attribute.plist attribute) :label))
+                                (getf (description.properties attribute) :label))

                :attribute attribute))))
\ No newline at end of file
                :attribute attribute))))
\ No newline at end of file