eval-when bug

[djb@hoppi.mitre.org (David J. Braunegg)]

There seems to be a bug in eval-when.
(I am running AKCL version 1.505 on a Sun 3/260.  No init file or
other modifications.)



Consider the file abc.lsp, which contains only the following two
forms:

(eval-when (load compile eval)
  (unless (find-package 'abc)
    (make-package 'abc)))

(defun foo ()
  (if (fboundp 'abc::foobar)
      'foo
      'bar))



It compiles with no problem:

AKCL (Austin Kyoto Common Lisp)  Version(1.505) Tue Nov 27 14:10:40 EST 1990
Contains Enhancements by W. Schelter
Changes in version 1-455 definitely require recompilation of user files.

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

>



I then exit akcl and fire up a new one.  When I try to load abc.o, I
get an error:

AKCL (Austin Kyoto Common Lisp)  Version(1.505) Tue Nov 27 14:10:40 EST 1990
Contains Enhancements by W. Schelter
Changes in version 1-455 definitely require recompilation of user files.

>(load "abc")
Loading abc.o

Error: The package named ABC, does not exist
Error signalled by LOAD.

Broken at LOAD.  Type :H for Help.
>>