Replace (setf read-short-name) and (setf read-long-name) with create-directory-entry.
Replace (setf read-short-name) and (setf read-long-name) with create-directory-entry.

Use create-directory-entry to simplify create-file and rename-file-using-host.

froggey/Mezzano,froggey/Mezzano