On Fri, 13 Apr 2001, Bill Schelter wrote:
> (C1) :lisp (progn (allocate 'cons 8000 t) (allocate 'fixnum 1000 t) (si::allocate-relocatable-pages 2000 t))
> 2000
> (C1) (showtime:true,ratsimp((a+b+c+d+1)^35),1)$
> Evaluation took 3.12 seconds (4.01 elapsed)
> (C2)
...
> the 850mhz machine had another big background job running, so I was
Indeed. I have here 800 MHz Athlon (with Seti@home running background at
low priority) and I get:
(C1) :lisp (progn (allocate 'cons 8000 t) (allocate 'fixnum 1000
t) (si::allocate-relocatable-pages 2000 t))
2000
(C1) (showtime:true,ratsimp((a+b+c+d+1)^35),1)$
Evaluation took 2.45 seconds (2.87 elapsed)
(C2) (showtime:true,ratsimp((a+b+c+d+1)^35),1)$
Evaluation took 2.68 seconds (3.11 elapsed)
(C3) (showtime:true,ratsimp((a+b+c+d+1)^35),1)$
Evaluation took 2.70 seconds (3.14 elapsed)
(C4) (showtime:true,ratsimp((a+b+c+d+1)^35),1)$
Evaluation took 2.74 seconds (3.18 elapsed)
The time tends to increase, but it's now much faster when I allocated more
space as Bill suggested.
The C compiler is egcs-2.91.66 but I'm not quite sure how much that
actually makes difference.