diff options
author | colin <colin@cicadas.surf> | 2023-02-20 10:04:33 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-02-20 10:04:33 -0800 |
commit | 3249a20b60e9652ec772f057e540f60bbcf1f024 (patch) | |
tree | 747f2636859bb09db17e440a410631a4559919cb /transactions.lisp | |
parent | c129745433a3acd62e600adc6c9a1000b66f6f4c (diff) |
Add: with-checked-plist macro, some validtators, and refactored
Diffstat (limited to 'transactions.lisp')
-rw-r--r-- | transactions.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
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))) |