(defmacro createList (a b c)
(let ((lst (list a b c)))
(write lst)))
(format t "~%Expanded ~a~%" (macroexpand-1 '(createList 1 2 3)))
KGRlZm1hY3JvIGNyZWF0ZUxpc3QgKGEgYiBjKQogIChsZXQgKChsc3QgKGxpc3QgYSBiIGMpKSkKICAgICAod3JpdGUgbHN0KSkpCgooZm9ybWF0IHQgIn4lRXhwYW5kZWQgfmF+JSIgKG1hY3JvZXhwYW5kLTEgJyhjcmVhdGVMaXN0IDEgMiAzKSkp