diff options
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))) |