(defun read-file (path)
  (let ((in (open path :if-does-not-exist nil)) data)
  (when in
    (setf data (read in))
    (close in))
  (data)))