lzw.lsp working?

[cormullion]

I'm trying to get peter's lzw.lsp code working (http://www.turtle.dds.nl/newlisp/index.html">//http://www.turtle.dds.nl/newlisp/index.html). Although I've changed the inc functions for v 10.1, I can't seem to get a file to compress and decompress OK. The code is complicated to understand (all that bit-shifting is hard to follow). Can anyone get this working?

[Lutz]

Change also the two instances of:

Code Select Expand

(write-line "[text]" out)

to:

Code Select Expand

(write-line out "[text]")

[cormullion]

Isn't that only in the self-extracting function, though?

[Lutz]

Haven't tried the program, just read through it to discover 10.0 incompatibilities.  Apart from the 'inc', I only could find 'write-line' which swapped parameters.