[Gcl-devel] Re: (random tester) Another compiler side effects bug

[Paul F. Dietz]

I wrote:

> What I'm seeing appears to be a gradual degradation of compile time
> as more compiles are performed.

Here's an example of the degradation:

(defun make-body (n)
  (if (= n 0)
      '(f x)
    `(flet ((f (y) (f y))) ,(make-body (1- n)))))

(defun make-fn (n)
  `(lambda (x) (flet ((f (z) z))
                 ,(make-body n))))

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89b7c08 Finished loading gazonk1.o
real time : 0.260 secs
run time  : 0.110 secs
#<compiled-function COMPILER::CMP-ANON>

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89b9c08 Finished loading gazonk1.o
real time : 0.640 secs
run time  : 0.430 secs
#<compiled-function COMPILER::CMP-ANON>

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89c5fe0 Finished loading gazonk1.o
real time : 1.300 secs
run time  : 1.080 secs
#<compiled-function COMPILER::CMP-ANON>

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89c6838 Finished loading gazonk1.o
real time : 2.310 secs
run time  : 2.080 secs
#<compiled-function COMPILER::CMP-ANON>

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89c6da8 Finished loading gazonk1.o
real time : 3.680 secs
run time  : 3.430 secs
#<compiled-function COMPILER::CMP-ANON>

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89c1838 Finished loading gazonk1.o
real time : 5.490 secs
run time  : 5.250 secs
#<compiled-function COMPILER::CMP-ANON>

>(time (compile nil (make-fn 6)))

Compiling gazonk1.lsp.
End of Pass 1.
End of Pass 2.
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling gazonk1.lsp.
Loading gazonk1.o
start address -T 0x89c1da8 Finished loading gazonk1.o
real time : 7.730 secs
run time  : 7.410 secs
#<compiled-function COMPILER::CMP-ANON>