summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--model.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/model.lisp b/model.lisp
index df20bc0..1c1b1cc 100644
--- a/model.lisp
+++ b/model.lisp
@@ -19,11 +19,11 @@
(defun renown (hero)
(experience hero))
-(defclass has-uid (db:store-object)
+(defclass has-uid ()
((nuid :reader uid :initform (nuid)))
(:metaclass db:persistent-class))
-(defclass can-equip (db:store-object)
+(defclass can-equip ()
((equipment-table
:initform (make-hash-table))
(equipment-slot-names
@@ -35,7 +35,7 @@
;; TODO: define an equip protocol
;; a user
-(defclass hero (can-equip has-uid)
+(defclass hero (db:store-object can-equip has-uid)
((name
:accessor hero-name
:initarg :name