LISP printm

If you are reading "The Elements of Artificial Intelligence" by Steven L. Tanimoto here is a "printm" macro:

(defmacro printm (&body body)
`'(,@body))

CL-USER> (printm this is a test)
(THIS IS A TEST)

or if you want the data not to print out as a list:

(defmacro printm (&body body)
`(format nil "~{~D ~}" '(,@body)))

CL-USER> (printm this is a test)
"THIS IS A TEST"