Skip to content
Browse files

Added something to remove the same format string from validate to val…

…idate description
  • Loading branch information...
1 parent ddf67d6 commit c8fda2d61953131e63cd1ad5fb45baf64090d76e @drewc committed
Showing with 7 additions and 0 deletions.
  1. +7 −0 src/standard-descriptions/validate.lisp
View
7 src/standard-descriptions/validate.lisp
@@ -79,6 +79,13 @@
(attribute-object attribute)
lol::*invalid-objects*)
:key #'car)))
+ (setf
+ conditions
+ (loop with string for c in conditions
+ :unless (find (validation-condition-format-string (cdr c)) string
+ :test #'string-equal)
+ :collect c
+ :do (push (validation-condition-format-string (cdr c)) string)))
(dolist (c conditions)
(<:div :style "color:red"
(<:as-html

0 comments on commit c8fda2d

Please sign in to comment.
Something went wrong with that request. Please try again.