<!DOCTYPE html><html><head>
<style type="text/css">body { font-family:'Arial'; font-size:13px}</style>
</head>
<body><div>Hello,</div><div><br></div><div>I am using your library to create a zip file containing PDF(s). In each case the end result is a zip file that looks right, including file size reported inside the zip file, but if I try to extract the PDF I get the dreaded "File fails CRC check....." am I doing something wrong?</div><div><br></div><div>(zip:with-output-to-zipfile <br>    (zip "Myzipfile.zip" :if-exists :new-version) <br>     (dolist (SelectedFileName '("c:\\temp\\MyAdobe1.pdf" "g:\\anotherdirectory\\MyAdobe2.pdf" "g:\\yetanotherdirectory\\mytextfile.txt")<br>           (with-open-file (TheFile SelectedFileName :element-type '(unsigned-byte 8))<br>               (zip:write-zipentry<br>                  zip<br>                  (PathStripper SelectedFileName)<br>                TheFile))<br><br><br></div><div><br></div><div>(defun PathStripper(FileToProcess)<br>       (loop while (search "\\" FileToProcess) do (setf FileToProcess (subseq FileToProcess 1)))<br>       FileToProcess)</div><div><br></div><div id="M2Signature"><div>-- </div><div><div><font face="'Arial',sans-serif">Regards,</font></div><div><font face="'Arial',sans-serif"><br></font></div><div><font face="'Arial',sans-serif">William<br></font></div></div></div></body></html>