writes args into a string and returns that string
(defun mkstr (&rest args) "writes args into a string and returns that string" (with-output-to-string (s) (dolist (a args) (princ a s))))