For comparison, I think this is the shortest way to do this without introducing a new name:
(tofile "tmpfile" (disp "this is some text"))
---
How would you better implement writefile? I think the goal is to avoid corrupting a file that gets repeatedly updated. If the disk fills up, for example, you might end up losing the previous version and unable to fully write the new version.