Serializing Objects

(add-project :description "Test Project" :area-of-focus "Project Development")

(cl-json:with-object ()
  (cl-json:encode-object-member "uuid" (format nil "~a" (uuid p)))
  (cl-json:encode-object-member "slug" (slug p))
  (cl-json:encode-object-member "description" (description p))
  (cl-json:encode-object-member "areaOfFocus" (area-of-focus p))
  (cl-json:encode-object-member "tags" (tags p))
  (cl-json:encode-object-member "inheritTags" (inherit-tags p)))