Refactor: to use render protocol

1 files changed, 5 insertions, 4 deletions

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.")