[elephant-devel] Re: more allegro changes you might want to incorporate

[Robert L. Read]

Andrew has discovered some problems (and even more than this message.)

I thought 4.0 was functional under ACL, but I would now have to say it
is 
questionable.

Unfortunately, I am about to begin an weekend-long LAN party to rebuild
the website of the Esperanto League of North America, so will not 
be able to incorprate Andrew's suggestions until next week.

Many thanks, Andrew for all your work.  If everyone can continue to be 
patient with me, we will continue to have a better-and-better project.


On Fri, 2006-01-06 at 10:08 -0800, Andrew Philpot wrote:

> In src/elephant.lisp, you need three more imports from CLOS (primary
> name is ACLMOP)
> 
>   #+allegro
>   (:import-from :clos
> 		compute-class-precedence-list
> 		validate-superclass
> 		standard-slot-definition
> 		standard-direct-slot-definition
> 		standard-effective-slot-definition
> 		direct-slot-definition-class
> 		effective-slot-definition-class
> 		slot-definition-name
> 		slot-definition-initform
> 		slot-definition-initfunction
> 		compute-effective-slot-definition
> 		class-slots
> 		slot-value-using-class
> 		slot-boundp-using-class
> 		slot-makunbound-using-class
> 		slot-definition-allocation
> 		slot-definition-initargs
> 		class-finalized-p
> 		finalize-inheritance
> 		compute-slots
> 		slot-definition-readers
> 		slot-definition-writers
> 		class-direct-slots)
> 
> In INSTALL and src/controller, there are stray references to '0.3.0'
> Maybe you could use logical pathnames?
> 
> I didn't notice this before, but DESERIALIZE-FROM-BASE64-STRING has
> arguments (x &keys sc) and is called incorrectly in SQL-DUMP-CLCN
> which should probably be something like
> 
> (defmethod sql-dump-clcn ((clcn integer) sc con)
>   (let* (
> 	 (tuples
> 	  (clsql::select [key] [value]
> 		  :from [keyvalue]
> 		  :where [and [= [clctn_id] clcn]]
> 		  :database con
> 		  )))
>     (mapcar #'(lambda (x) 
>       (mapcar #'(lambda (q)
>         (deserialize-from-base64-string q :sc sc)) x))
> 	    tuples)))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20060106/ac440001/attachment.html>