(in-package #:lolicore)

(defmacro str (&rest strs)
  "Concatenate a list of strings `strs' to one string."
  `(concatenate 'string ,@strs))

(defun add-data (keyword key json)
  (cons keyword (jsown:val json key)))

(defmacro add-booru (&rest args)
  `(push (make-instance 'booru ,@args) *boorus*))