From c8fda2d61953131e63cd1ad5fb45baf64090d76e Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Fri, 27 Jan 2012 18:09:41 -0800
Subject: [PATCH] Added something to remove the same format string from
 validate to validate description

---
 src/standard-descriptions/validate.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

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