(defmacro with-jsown-vals (obj vals &body body)
  "Provides the passed jsown values as local variables within the scope to be used."
  `(let ,(mapcar #'(lambda (key) (list (intern (string-upcase key)) (jsown:val obj key))) vals)
     ,@body))