diff options
author | colin <colin@cicadas.surf> | 2023-02-18 09:18:10 -0800 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2023-02-18 09:18:10 -0800 |
commit | a6c251123bbe9c174294287d494c4be99e40287a (patch) | |
tree | eb665c9d45f97c0ad84079ff146d78594d40e92b /transactions.lisp | |
parent | a0cfd78039197e45ce8dd8aacea4efb575c0b1c1 (diff) |
Saturday Pair Session
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))) |