From f703374754fb22fae7b208400c7081de3c449760 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Sat, 27 Apr 2024 22:00:00 -0500
Subject: [PATCH] make sure form is real

---
 src/main.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index b922e4e..738d3e0 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -490,8 +490,9 @@ with the image attached"
     (log:info data)
     ;; This is extremely necessary so that cors is right
     (setf (tbnl:header-out :access-control-expose-headers) "*")
-    (post-camp-data data)
-    (mail-camp-form data nil)
+    (if data 
+        (post-camp-data data)
+        (mail-camp-form data nil))
     (if (string= health "later")
         (progn (uiop:println "Selected health later")
                (cond ((string= registration "now")