diff options
Diffstat (limited to 'src/transactions.lisp')
-rw-r--r-- | src/transactions.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/transactions.lisp b/src/transactions.lisp index dff037d..61f7f9b 100644 --- a/src/transactions.lisp +++ b/src/transactions.lisp @@ -22,3 +22,11 @@ (make-instance 'adventure :title title :creator player :seers seers :description description))) + +(defun report-a-rumor (reporter adventure reported) + (db:with-transaction () + (let ((rumor + (make-instance 'rumor + :reported reported + :reporter reporter))) + (push rumor (rumors adventure))))) |