Saturday Pair Session

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