Re: [Chicken-users] sloooow (read)

[Sven . Hartrumpf]

On 24 May 2004, Alain MELLAN wrote:
[...]
> Bigloo:   1.290u 0.100s 0:01.40 99.2%     0+0k 0+0io 648pf+0w
> Chicken: 12.980u 0.340s 0:13.33 99.9%     0+0k 0+0io 436pf+0w
> 
> that's fairly bad :-(
[...]
> Below is my test program (basically makes a *big* list, writes it to
> disk and reads again):

Your code reads a different file!

Just to be sure the first line doesn't make the difference:
When you have generated asdf.txt,
remove the first line from your test program and switch
the order of the rest (i.e. read first, then write) and
measure again.

Which compiler options are you using for bigloo, which for chicken?

Greetings
Sven

> (define a (vector->list (make-vector 1000000 '())))
> 
> (define port (open-output-file "asdf.asdf"))
> (write a port)
> (close-output-port port)
> 
> (set! port (open-input-file "asdf.txt"))
> (define b (read port))
> (close-input-port port)

pgpW_oghuFQff.pgp
Description: PGP signature