<p>cl-bzip2 是 Common Lisp 实现 bzip2 压缩和解压缩的开发包。</p>    <p>压缩示例代码：</p>    <pre class="brush:java; toolbar: true; auto-links: false;">;;; Compression usage  ;;; No values are returned if execution was successful ;;; Using pathnames CL-USER> (bzip2:compress #p"test.txt" #p"test.txt.bz2") ; No value  ;;; Using binary streams CL-USER> (with-open-file (in "test.txt" :direction :input :element-type '(unsigned-byte 8))            (with-open-file (out "test.txt.bz2" :direction :output :element-type '(unsigned-byte 8))              (bzip2:compress in out))) ; No value  ;;; Mixing stream and pathname CL-USER> (with-open-file (in "test.txt" :direction :input :element-type '(unsigned-byte 8))            (bzip2:compress in #p"test.txt.bz2")) ; No value</pre>    <p><strong>项目主页：</strong><a href="http://www.open-open.com/lib/view/home/1328152602437" target="_blank">http://www.open-open.com/lib/view/home/1328152602437</a></p>    <p></p>