From 3249a20b60e9652ec772f057e540f60bbcf1f024 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 20 Feb 2023 10:04:33 -0800
Subject: Add: with-checked-plist macro, some validtators, and refactored

---
 transactions.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'transactions.lisp')

diff --git a/transactions.lisp b/transactions.lisp
index 35e817c..acfa8c2 100644
--- a/transactions.lisp
+++ b/transactions.lisp
@@ -16,3 +16,7 @@
 (defun register-player (nick)
   (db:with-transaction ()
     (make-instance 'player :nick nick)))
+
+(defun create-campaign (player title)
+  (db:with-transaction ()
+    (make-instance 'campaign :title title :creator player)))
-- 
cgit v1.2.3