Refactor: has-uid and can-equip to mixins

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