Bizarro compile/load bug

[Jeff Dalton <jeff@aiai.edinburgh.ac.uk>]

load-test.lsp:

(let ((a 1))
  (defun f (x) (cons a x)))

Now:
----------------------------------------------------------------------
AKCL (Austin Kyoto Common Lisp)  Version(1.505) Thu Jan  3 22:19:53 GMT 1991
Contains Enhancements by W. Schelter

>(compile-file "load-test")
Compiling load-test.lsp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling load-test.
#"load-test.o"

>(let ((junk 'real-junk))
   (load "load-test"))
Loading load-test.o
start address -T 25cf58 Finished loading load-test.o
32

>#'f
(LAMBDA-BLOCK-CLOSURE ((A 1) (JUNK REAL-JUNK)) () () F (X) (CONS A X))

----------------------------------------------------------------------

Jeff Dalton,
AI Applications Institute,                               J.Dalton@ed.ac.uk
Edinburgh University.