-Fixed dumbass bug introduced by my overzealous use of apply

inaimathi · Apr 7, 2011 · f1bcb4e · f1bcb4e
1 parent 024df37
commit f1bcb4e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/formlets.lisp b/formlets.lisp
@@ -51,7 +51,7 @@
 (defmacro validate-form ((origin-fn &key fields general) &body on-success)
   `(let ((results (list ,@(loop for field in fields
 			     collect (sym->keyword (car field))
-			     when (apply #'validate-field field) collect it
+			     when (validate-field (car field) (cadr field) (caddr field) (or (cadddr field) general)) collect it
 			     else collect nil))))
      (if (all-valid? results)
 	 (progn ,@on-success)