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 07a8d5f..13c1d26 100644 --- a/src/queries.lisp +++ b/src/queries.lisp @@ -8,6 +8,9 @@ (defun all-players () (db:store-objects-with-class 'player)) +(defun all-other-players (player) + (remove-if (lambda (p) (eq player p)) (all-players))) + (defun player-quests (player) "Return all quests in which one of player's heroes is engaged." (remove nil (mapcar #'quest (player-heroes player)))) |