<!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>