diff options
| author | colin <colin@cicadas.surf> | 2023-03-06 19:44:53 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-03-06 19:44:53 -0800 |
| commit | 187fce76197031dba1112bd6023b41166f039f3e (patch) | |
| tree | 673514a59d4225b7773c6fc0edcd1e31a406de08 /src/transactions.lisp | |
| parent | 36df81a7e3bb23d4cc347cc335fbd9b949a6af91 (diff) | |
Add: adventure creation
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))) |