Multibyte external file format patch for cl-emb::contents-of-file function

<div><p>Hi.<br><br>I've encountered the problem with contents-of-file function, that manifests itself for multibyte external file encodings (e.g. UTF-8). contents-of-file allocates (file-length in) characters, which for multibyte encodings is less then number of characters read by read-sequence. This leaves dangling characters (implementation dependent) at end of template code. Attached patch solves the problem.<br><br>Apply at will.<br><br>Thanks<br><br>Tomasz<br><br></p></div>