You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
300 B
12 lines
300 B
(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*))
|