From 20e0bb168032e2e2aa95b08e2dbc9bedced62df3 Mon Sep 17 00:00:00 2001
From: Grant Shoshin Shangreaux <shoshin@cicadas.surf>
Date: Sat, 1 Apr 2023 08:58:23 -0500
Subject: WIP mini-marathon

---
 src/model.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/model.lisp')

diff --git a/src/model.lisp b/src/model.lisp
index e44d3b9..f8d19bc 100644
--- a/src/model.lisp
+++ b/src/model.lisp
@@ -157,6 +157,9 @@
   (:metaclass db:persistent-class)
   (:documentation "A adventure is a container of quests. Adventures are expected to be engaged with on a particular schedule, and are run by particular people."))
 
+(defun adventure-seers (adventure)
+  (cons (creator adventure) (seers adventure)))
+
 (defclass rumor (game-object)
   ((reporter
     :reader reporter
-- 
cgit v1.2.3