#9 eat-file is wrong.

[Pascal J. Bourguignon]

It uses FILE-LENGTH on text files, but FILE-LENGTH on text files is not specified to do anything useful.

Instead, see contents-from-stream in http://tinyurl.com/cesarum-stream on how to read a whole file.

I replace eat-file with:

(defun eat-file (filename)
(coerce
(com.informatimago.common-lisp.cesarum.file:text-file-contents
filename) 'simple-string))

(text-file-contents calls contents-from-stream).

[Pascal J. Bourguignon]

Example of breakage.