(macroexpand-1 '(defentity PC
    :description "A player character"
    :component named, descriptable
    :component locatable))
    
(defmacro defentity (&rest body)
  "Load the entity data"
  `(progn ,@body))
  
; Reader error on #<STRING-INPUT-STREAM  #x302000E7F0AD>, near position 89, within "ent named, descripta":
;Comma not inside backquote