diff options
Diffstat (limited to 'src/transactions.lisp')
| -rw-r--r-- | src/transactions.lisp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/transactions.lisp b/src/transactions.lisp index 647452b..dff037d 100644 --- a/src/transactions.lisp +++ b/src/transactions.lisp @@ -17,6 +17,8 @@ (db:with-transaction () (make-instance 'player :nickname nick))) -(defun create-adventure (player title) +(defun create-adventure (player title &key (description "") seers) (db:with-transaction () - (make-instance 'adventure :title title :creator player))) + (make-instance 'adventure :title title :creator player + :seers seers + :description description))) |