From 2be10a3b137d7bcc75b02884ddbe72608f85f9b0 Mon Sep 17 00:00:00 2001 From: colin Date: Mon, 20 Feb 2023 17:49:42 -0800 Subject: Refactor: to use render protocol --- model.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'model.lisp') diff --git a/model.lisp b/model.lisp index e4c8943..0598cf7 100644 --- a/model.lisp +++ b/model.lisp @@ -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.") -- cgit v1.2.3