From 28ea7808fe26547c7cefd7709f6a46e55b56a0d9 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 26 Dec 2022 19:04:09 -0800 Subject: Refactor: has-uid and can-equip to mixins --- model.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'model.lisp') 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 -- cgit v1.2.3