transactions.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13

;;;; transactions.lisp -- data store transactions for dnd

(in-package :dnd)

(defun birth-from-the-goddess-loins (name)
  (db:with-transaction ()
    (make-instance 'hero :name name)))

(defun new-sesh (hero)
  (db:with-transaction () (make-instance 'session :hero hero)))

(defun destroy-sesh (session)
  (db:delete-object session))