From a5fe2c2592f13999549060c15e062cb706a18bae Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Sat, 27 Apr 2024 07:31:57 -0500 Subject: [PATCH] fix bug --- src/main.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main.lisp b/src/main.lisp index bf848e7..f3a6093 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -354,7 +354,7 @@ with the image attached" (trim-whitespace (cdr (assoc "parent-last-name" form :test 'string=)))))) - (log:info (format nil "Mailing out the camp form for ~" + (log:info (format nil "Mailing out the camp form for ~a" (concat first-name " " last-name))) (not (cl-smtp:send-email "mail.tfcconnection.org" @@ -400,7 +400,7 @@ with the image attached" (trim-whitespace (cdr (assoc "parent-last-name" form :test 'string=)))))) - (log:info (format nil "Mailing out the health form for ~" + (log:info (format nil "Mailing out the health form for ~a" (concat first-name " " last-name))) (not (cl-smtp:send-email "mail.tfcconnection.org"