メールに添付しているzipファイルが暗号化されているかどうかを判定したいので、zipファイルを読み込んで解析する処理を作ってみます。 バイナリファイルの読み込み まずはバイナリファイルを読み込むところから始めます。 (defun read-binary-file (path) (with-open-file (in path :element-type '(unsigned-byte 8)) (let ((bin (make-array (file-length in) :element-type '(unsigned-byte 8)))) (read-sequence bin in) bin))) ファイルサイズ分のメモリを確保してそこに一気に読み込むやり方です。これはvectorで返ってくるので、あとでlistにしておきます。とりあえずは何でもlistで作って遅かったら対策を考えます。
![zipファイルを読む - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/0923a11bf3b4ef04eb9faaa088af0d6f49c97e72/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9emlwJUUzJTgzJTk1JUUzJTgyJUExJUUzJTgyJUE0JUUzJTgzJUFCJUUzJTgyJTkyJUU4JUFBJUFEJUUzJTgyJTgwJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz04OTRlMDNkNzZiZmI2NzVmMmU4ZjAxOWE0ZGQ0OTViYg%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwdGFtdXJhc2hpbmdvJTQwZ2l0aHViJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz05ODUzZTY1NGFkYzAyMmZjOGIzNDIzMDM4NTliMWUzNA%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D514f0fa7a0e99dfe4c897b8aba64ba69)