<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.3.2">
</HEAD>
<BODY>
Andrew has discovered some problems (and even more than this message.)<BR>
<BR>
I thought 4.0 was functional under ACL, but I would now have to say it is <BR>
questionable.<BR>
<BR>
Unfortunately, I am about to begin an weekend-long LAN party to rebuild<BR>
the website of the Esperanto League of North America, so will not <BR>
be able to incorprate Andrew's suggestions until next week.<BR>
<BR>
Many thanks, Andrew for all your work. If everyone can continue to be <BR>
patient with me, we will continue to have a better-and-better project.<BR>
<BR>
<BR>
On Fri, 2006-01-06 at 10:08 -0800, Andrew Philpot wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">In src/elephant.lisp, you need three more imports from CLOS (primary</FONT>
<FONT COLOR="#000000">name is ACLMOP)</FONT>
<FONT COLOR="#000000"> #+allegro</FONT>
<FONT COLOR="#000000"> (:import-from :clos</FONT>
<FONT COLOR="#000000"> compute-class-precedence-list</FONT>
<FONT COLOR="#000000"> validate-superclass</FONT>
<FONT COLOR="#000000"> standard-slot-definition</FONT>
<FONT COLOR="#000000"> standard-direct-slot-definition</FONT>
<FONT COLOR="#000000"> standard-effective-slot-definition</FONT>
<FONT COLOR="#000000"> direct-slot-definition-class</FONT>
<FONT COLOR="#000000"> effective-slot-definition-class</FONT>
<FONT COLOR="#000000"> slot-definition-name</FONT>
<FONT COLOR="#000000"> slot-definition-initform</FONT>
<FONT COLOR="#000000"> slot-definition-initfunction</FONT>
<FONT COLOR="#000000"> compute-effective-slot-definition</FONT>
<FONT COLOR="#000000"> class-slots</FONT>
<FONT COLOR="#000000"> slot-value-using-class</FONT>
<FONT COLOR="#000000"> slot-boundp-using-class</FONT>
<FONT COLOR="#000000"> slot-makunbound-using-class</FONT>
<FONT COLOR="#000000"> slot-definition-allocation</FONT>
<FONT COLOR="#000000"> slot-definition-initargs</FONT>
<FONT COLOR="#000000"> class-finalized-p</FONT>
<FONT COLOR="#000000"> finalize-inheritance</FONT>
<FONT COLOR="#000000"> compute-slots</FONT>
<FONT COLOR="#000000"> slot-definition-readers</FONT>
<FONT COLOR="#000000"> slot-definition-writers</FONT>
<FONT COLOR="#000000"> class-direct-slots)</FONT>
<FONT COLOR="#000000">In INSTALL and src/controller, there are stray references to '0.3.0'</FONT>
<FONT COLOR="#000000">Maybe you could use logical pathnames?</FONT>
<FONT COLOR="#000000">I didn't notice this before, but DESERIALIZE-FROM-BASE64-STRING has</FONT>
<FONT COLOR="#000000">arguments (x &keys sc) and is called incorrectly in SQL-DUMP-CLCN</FONT>
<FONT COLOR="#000000">which should probably be something like</FONT>
<FONT COLOR="#000000">(defmethod sql-dump-clcn ((clcn integer) sc con)</FONT>
<FONT COLOR="#000000"> (let* (</FONT>
<FONT COLOR="#000000"> (tuples</FONT>
<FONT COLOR="#000000"> (clsql::select [key] [value]</FONT>
<FONT COLOR="#000000"> :from [keyvalue]</FONT>
<FONT COLOR="#000000"> :where [and [= [clctn_id] clcn]]</FONT>
<FONT COLOR="#000000"> :database con</FONT>
<FONT COLOR="#000000"> )))</FONT>
<FONT COLOR="#000000"> (mapcar #'(lambda (x) </FONT>
<FONT COLOR="#000000"> (mapcar #'(lambda (q)</FONT>
<FONT COLOR="#000000"> (deserialize-from-base64-string q :sc sc)) x))</FONT>
<FONT COLOR="#000000"> tuples)))</FONT>
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>