[zip-devel] does ZIP support SBCL?

[Elliott Slaughter]

Hi,

Does ZIP support SBCL?

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?

Anyways, here is a description of the bug:

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:

This is on SBCL 1.0.22 on Windows. The same commands work fine on CLISP.

$ mkdir test
$ cat > test/hello
hello world!
$ ls -l test
total 1
-rw-r--r-- 1 Elliott Slaughter None 13 May 24 17:06 hello
$ sbcl
* (asdf:oos 'asdf:load-op :zip)
* (use-package :zip)
T
* (zip "test.zip" "test/" :if-exists :supersede)
NIL
* (unzip "test.zip" "test2/" :if-exists :supersede :verbose t)

debugger invoked on a TYPE-ERROR: The value -1 is not of type (MOD
536870909).

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(ELT "" -1)[:EXTERNAL]

0] ba

0: (ELT "" -1)[:EXTERNAL]
1: (UNZIP "test.zip" "test2/")[:EXTERNAL]
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV
    (UNZIP "test.zip" "test2/" :IF-EXISTS :SUPERSEDE :VERBOSE T)
    #<NULL-LEXENV>)
3: (INTERACTIVE-EVAL
    (UNZIP "test.zip" "test2/" :IF-EXISTS :SUPERSEDE :VERBOSE T))
4: (SB-IMPL::REPL-FUN NIL)
5: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL]
6: ((LAMBDA ()))
7: ((LAMBDA ()))[:EXTERNAL]
8: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {23E75945}>)
9: (SB-IMPL::TOPLEVEL-REPL NIL)
10: (SB-IMPL::TOPLEVEL-INIT)
11: ((LABELS SB-IMPL::RESTART-LISP))
12: ("foreign function: #x4113F5")
13: ("foreign function: #x40A4E6")

$ 7z l test.zip
7-Zip 4.65  Copyright (c) 1999-2009 Igor Pavlov  2009-02-03
Listing archive: test.zip
   Date      Time    Attr         Size   Compressed  Name
------------------- ----- ------------ ------------
------------------------
2009-05-24 17:06:08 .....            0            6  test
2009-05-24 17:06:28 .....           13           19  hello
------------------- ----- ------------ ------------
------------------------
                                    13           25  2 files, 0 folders

Thanks. Any help would be appreciated.

-- 
Elliott Slaughter

"Don't worry about what anybody else is going to do. The best way to predict
the future is to invent it." - Alan Kay
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/zip-devel/attachments/20090524/7faad442/attachment.html>