1 2 3 4 5 6 7 8 9 10 11 12 13
;;;; serialization.lisp (in-package :dungeons-and-deadlines) (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))))