[Bese-devel] UCW 0.3.5 with aserve and SBCL?

[Tim Lavoie]

On Thu, Feb 03, 2005 at 03:15:00PM -0600, Alan Shutko wrote:
> Tim Lavoie <tim at fractaldragon.net> writes:
> 
> > debugger invoked on a COMMON-LISP:UNDEFINED-FUNCTION in thread 32608:
> >   The function :FIND-PACKAGE is undefined.
> 
> This is caused by lines like this in aserve.lisp:
> 
> #+#.(if (find-package "PURI") `(and) `(or))
> 
> I think this isn't strictly ANSI.  
> 
> http://www.lispworks.com/documentation/HyperSpec/Body/02_dhq.htm
> 
> says that the test is read in the keyword package.  Changing these
> lines to 
> 
> #+#.(cl:if (cl:find-package "PURI") `(and) `(or))
> 
> corrects it for SBCL.  Does that look correct to others?


That does the trick here. I still get the burps for package locks, but
I can continue past those without problems.

	Thanks,
	Tim