From a6c251123bbe9c174294287d494c4be99e40287a Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 18 Feb 2023 09:18:10 -0800 Subject: Saturday Pair Session --- transactions.lisp | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'transactions.lisp') diff --git a/transactions.lisp b/transactions.lisp index 6a50fc1..2c65434 100644 --- a/transactions.lisp +++ b/transactions.lisp @@ -6,8 +6,13 @@ (db:with-transaction () (make-instance 'hero :name name))) -(defun new-sesh (hero) - (db:with-transaction () (make-instance 'session :hero hero))) +(defun new-sesh (player) + (db:with-transaction () (make-instance 'session :player player))) (defun destroy-sesh (session) - (db:delete-object session)) + (db:with-transaction () + (db:delete-object session))) + +(defun register-player (nick) + (db:with-transaction () + (make-instance 'player :nick nick))) -- cgit v1.2.3