(in-package #:lolisp)

(defmacro str (&rest strs)
  `(concatenate 'string ,@strs))

(defmacro json-value (json &rest rest)
  (let ((this `(jsown:val ,json ,(pop rest))))
    (loop while rest
          do (setf this `(jsown:val ,this ,(pop rest))))
    this))