Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!elroy.jpl.nasa.gov!usc!apple!agate!linus!linus!arnold!djb
From: djb@arnold.mitre.org (David J. Braunegg)
Newsgroups: comp.ai
Subject: eval-when bug in AKCL
Message-ID: <127529@linus.mitre.org>
Date: 3 Jan 91 16:13:06 GMT
References: <1990Dec27.082422.10158@cs.umn.edu> <2304@dsac.dla.mil> <95774@aerospace.AERO.ORG>
Sender: usenet@linus.mitre.org
Organization: The MITRE Corporation
Lines: 54
Nntp-Posting-Host: arnold.mitre.org


There seems to be a bug in eval-when in AKCL.
(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.
>>