diff options
Diffstat (limited to 'src/queries.lisp')
-rw-r--r-- | src/queries.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/queries.lisp b/src/queries.lisp index 9cd581c..de3f8c3 100644 --- a/src/queries.lisp +++ b/src/queries.lisp @@ -5,6 +5,9 @@ (defun all-heroes () (db:store-objects-with-class 'hero)) +(defun all-players () + (db:store-objects-with-class 'player)) + (defun player-quests (player) "Return all quests in which one of player's heroes is engaged." (remove nil (mapcar #'quest (player-heroes player)))) |