diff options
Diffstat (limited to 'model.lisp')
-rw-r--r-- | model.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -65,7 +65,7 @@ (defclass player (db:store-object has-uid) ((nick - :reader user-nick + :reader player-nick :initarg :nick :initform (error "Players must have a nick") :type string @@ -97,8 +97,7 @@ :initarg :player :type player :index-type idx:hash-index - :index-reader player-heroes - ) + :index-reader player-heroes) (campaign :accessor hero-campaign :initarg :campaign @@ -107,6 +106,8 @@ :documentation "A hero may be in at mostk one campaign at a time.")) (:metaclass db:persistent-class)) + + ;; TODO expiration? (defclass session (db:store-object) ((player :reader session-player @@ -157,7 +158,7 @@ :initform nil :documentation "When all hope becomes lost.") (heroes - :accessor heroes-in-quest + :accessor heroes-on-quest :initarg :heroes :initform nil :documentation "A list of heroes in this quest. Join and flight dates are logged in the chronicle.") |