TFC/tfcconnection
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix bug

Browse source
This commit is contained in:
Chris Cochrun 2024-04-27 07:31:57 -05:00
parent 08853a78d5
commit a5fe2c2592
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/main.lisp
View file

@ -354,7 +354,7 @@ with the image attached"
(trim-whitespace (trim-whitespace
(cdr (assoc "parent-last-name" form (cdr (assoc "parent-last-name" form
:test 'string=)))))) :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))) (concat first-name " " last-name)))
(not (cl-smtp:send-email (not (cl-smtp:send-email
"mail.tfcconnection.org" "mail.tfcconnection.org"
@ -400,7 +400,7 @@ with the image attached"
(trim-whitespace (trim-whitespace
(cdr (assoc "parent-last-name" form (cdr (assoc "parent-last-name" form
:test 'string=)))))) :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))) (concat first-name " " last-name)))
(not (cl-smtp:send-email (not (cl-smtp:send-email
"mail.tfcconnection.org" "mail.tfcconnection.org"