Plaster

(ql:quickload '(:babel :zstd)) (defun compress-file-line (input-file output-file) (with-open-file (input-stream input-file) (with-open-file (output-stream output-file :direction :output :element-type '(unsigned-byte 8) :if-exists :supersede) (zstd:with-compressing-stream (out output-stream) (loop for line = (read-line input-stream nil) while line do (write-sequence (babel:string-to-octets line) out)))))) (defun compress-file-line-cb (input-file output-file) (with-open-file (input-stream input-file) (with-open-file (output-stream output-file :direction :output :element-type '(unsigned-byte 8) :if-exists :supersede) (loop for line = (read-line input-stream nil) while line do (write-sequence (zstd:compress-buffer (babel:string-to-octets line)) output-stream))))) (loop for x upto 500 do (compress-file-line #P"broken.txt" (format nil "foo.log.~a.zst" x))) (quit)