diff options
Diffstat (limited to 'model.lisp')
-rw-r--r-- | model.lisp | 16 |
1 files changed, 12 insertions, 4 deletions
@@ -1,6 +1,6 @@ ;;;; model.lisp -- bknr.datastore class definitions for dnd -ty + (in-package :dungeons-and-deadlines) @@ -10,12 +10,21 @@ ty (deftype character-class () `(member :hero)) +(defun hero-class (h) + "barGaryan") + +(defun hero-title (h) + "Scouse Chef") + +(defun renown (hero) + (experience hero)) + (defclass has-uid (db:store-object) ((nuid :reader uid :initform (nuid))) (:metaclass db:persistent-class)) (defclass can-equip (db:store-object) - ((equipment-slots + ((equipment-table :initform (make-hash-table)) (equipment-slot-names :initform (list :holding) @@ -40,8 +49,7 @@ ty :type integer) (chronicle :accessor hero-chronicle - :initform (list) - :type (cons string)) + :initform (list)) (pwhash :accessor pwhash :type string |