[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Chicken-users] sloooow (read)

From: Alain MELLAN
Subject: [Chicken-users] sloooow (read)
Date: Mon, 24 May 2004 22:32:15 -0700


I made a small silly program to test the IOs, because it looked
sluggish, and tested against Bigloo 2.6a. This is what I get:

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 :-(

Any idea where all these cycles go? 

Below is my test program (basically makes a *big* list, writes it to
disk and reads again):

(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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]