Hi,<br><br>Does ZIP support SBCL?<br><br>Is ZIP being maintained? (I noted that Salza, on which ZIP depends, is not.) If not, can anyone recommend a good compression library which supports both compression and decompression?<br>
<br>Anyways, here is a description of the bug:<br><br>When I zip a directory with a simple text file, I get an extra file, which seems to cause a crash when I try to unzip. A transcript of the error follows:<br><br>This is on SBCL 1.0.22 on Windows. The same commands work fine on CLISP.<br>
<br>$ mkdir test<br>$ cat > test/hello<br>hello world!<br>$ ls -l test<br>total 1<br>-rw-r--r-- 1 Elliott Slaughter None 13 May 24 17:06 hello<br>$ sbcl<br clear="all">* (asdf:oos 'asdf:load-op :zip)<br>* (use-package :zip)<br>

T<br>* (zip "test.zip" "test/" :if-exists :supersede)<br>NIL<br>* (unzip "test.zip" "test2/" :if-exists :supersede :verbose t)<br><br>debugger invoked on a TYPE-ERROR: The value -1 is not of type (MOD 536870909).<br>

<br>Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.<br><br>restarts (invokable by number or by possibly-abbreviated name):<br>  0: [ABORT] Exit debugger, returning to top level.<br><br>(ELT "" -1)[:EXTERNAL]<br>

<br>0] ba<br><br>0: (ELT "" -1)[:EXTERNAL]<br>1: (UNZIP "test.zip" "test2/")[:EXTERNAL]<br>2: (SB-INT:SIMPLE-EVAL-IN-LEXENV<br>    (UNZIP "test.zip" "test2/" :IF-EXISTS :SUPERSEDE :VERBOSE T)<br>

    #<NULL-LEXENV>)<br>3: (INTERACTIVE-EVAL<br>    (UNZIP "test.zip" "test2/" :IF-EXISTS :SUPERSEDE :VERBOSE T))<br>4: (SB-IMPL::REPL-FUN NIL)<br>5: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL]<br>6: ((LAMBDA ()))<br>

7: ((LAMBDA ()))[:EXTERNAL]<br>8: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {23E75945}>)<br>9: (SB-IMPL::TOPLEVEL-REPL NIL)<br>10: (SB-IMPL::TOPLEVEL-INIT)<br>11: ((LABELS SB-IMPL::RESTART-LISP))<br>12: ("foreign function: #x4113F5")<br>

13: ("foreign function: #x40A4E6")<br><br>$ 7z l test.zip<br>7-Zip 4.65  Copyright (c) 1999-2009 Igor Pavlov  2009-02-03<br>Listing archive: test.zip<br>   Date      Time    Attr         Size   Compressed  Name<br>

------------------- ----- ------------ ------------  ------------------------<br>2009-05-24 17:06:08 .....            0            6  test<br>2009-05-24 17:06:28 .....           13           19  hello<br>------------------- ----- ------------ ------------  ------------------------<br>

                                    13           25  2 files, 0 folders<br><br>Thanks. Any help would be appreciated.<br><br>-- <br>Elliott Slaughter<br><br>"Don't worry about what anybody else is going to do. The best way to predict the future is to invent it." - Alan Kay<br>