Plaster

(let ((yason:*list-encoder* 'yason:encode-alist)) (yason:with-output-to-string* () (yason:with-array () (loop for user in (list '(("userId" . 1) ("username" . "random1@abc.com") ("name" . "random 1")) '(("userId" . 2) ("username" . "random2@abc.com") ("name" . "random 2"))) do (yason:encode-array-element user))))) => "[{\"userId\":1,\"username\":\"random1@abc.com\",\"name\":\"random 1\"},{\"userId\":2,\"username\":\"random2@abc.com\",\"name\":\"random 2\"}]"