(prin1 object &optional stream)
(defun print-with-spaces (list) (mapc #'(lambda (x) (prin1 x) (princ " ")) list))
(prin1-to-string object)
(defun host-run-thread (id thunk) (process-run-function (prin1-to-string id) thunk))