serialization.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13

;;;; serialization.lisp


(in-package :dnd)

(defun hall-of-fame-hero-view (hero)
  (json:to-json
   (list :name (hero-name hero)
         :uid (uid hero)
         :renown (renown hero)
         :title (hero-title hero)
         :class (hero-class hero))))