diff options
Diffstat (limited to 'transactions.lisp')
-rw-r--r-- | transactions.lisp | 11 |
1 files changed, 8 insertions, 3 deletions
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))) |