<!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>
Dear Klaus,<BR>
I'm the maintainer, and I'm afraid I don't know the answer to this. Perhaps Ben or <BR>
one of the other original authors on this list can answer?<BR>
<BR>
I of course will be happy to investigate, but I don't have a copy of Lispworks.<BR>
I'm sure the code worked with lispworks at one time; I can't imagine so many directives for <BR>
it if it didn't, and the explicit mentions in the file NOTES suggest it worked at one time.<BR>
It is possible that I have broken the Lispworks compatibility in one of the recent versions.<BR>
<BR>
If you can make it work there, I will gladly apply your patches.<BR>
<BR>
Unquestionably the latest version is best tested under SBCL.<BR>
<BR>
<BR>
On Fri, 2005-12-16 at 00:53 +0100, Klaus Harbo wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
<FONT COLOR="#000000">I've been taking a closer look at Elephant this evening, but haven't </FONT>
<FONT COLOR="#000000">had too much luck getting it work with Lispworks. In src/ </FONT>
<FONT COLOR="#000000">sleepycat.lisp, the code</FONT>
<FONT COLOR="#000000"> (eval-when (:compile-toplevel :load-toplevel)</FONT>
<FONT COLOR="#000000"> (unless</FONT>
<FONT COLOR="#000000"> (uffi:load-foreign-library</FONT>
<FONT COLOR="#000000"> (if (find-package 'asdf)</FONT>
<FONT COLOR="#000000"> (merge-pathnames</FONT>
<FONT COLOR="#000000"> #p"libmemutil.so"</FONT>
<FONT COLOR="#000000"> (asdf:component-pathname (asdf:find-system </FONT>
<FONT COLOR="#000000">'elephant)))</FONT>
<FONT COLOR="#000000"> (format nil "~A/~A" *elephant-lib-path* </FONT>
<FONT COLOR="#000000">"libmemutil.so"))</FONT>
<FONT COLOR="#000000"> :module "libmemutil")</FONT>
<FONT COLOR="#000000"> (error "Couldn't load libmemutil.so!"))</FONT>
<FONT COLOR="#000000"> ;; fini on user editable part</FONT>
<FONT COLOR="#000000"> (def-type pointer-int (* :int))</FONT>
<FONT COLOR="#000000"> (def-type pointer-void :pointer-void)</FONT>
<FONT COLOR="#000000">! (def-foreign-type array-or-pointer-char</FONT>
<FONT COLOR="#000000">! #+allegro (:array :char)</FONT>
<FONT COLOR="#000000">! #+(or cmu sbcl scl openmcl) (* :char))</FONT>
<FONT COLOR="#000000"> (def-type array-or-pointer-char array-or-pointer-char)</FONT>
<FONT COLOR="#000000"> (def-enum DBTYPE ((:BTREE 1) :HASH :QUEUE :RECNO :UNKNOWN))</FONT>
<FONT COLOR="#000000"> )</FONT>
<FONT COLOR="#000000">combined with the definition of def-foreign-type in UFFI (I have </FONT>
<FONT COLOR="#000000">v1.5.7 downloaded today)</FONT>
<FONT COLOR="#000000"> (defmacro def-foreign-type (name type)</FONT>
<FONT COLOR="#000000"> #+lispworks `(fli:define-c-typedef ,name ,(convert-from- </FONT>
<FONT COLOR="#000000">uffi-type type :type))</FONT>
<FONT COLOR="#000000"> ...</FONT>
<FONT COLOR="#000000"> )</FONT>
<FONT COLOR="#000000">suggests to me that Lispworks is NOT supported in Elephant(?). I'm </FONT>
<FONT COLOR="#000000">not too familiar with FLI, though, so I may be missing something... </FONT>
<FONT COLOR="#000000">I'm wondering if anyone on the list could enlighten me?</FONT>
<FONT COLOR="#000000">-Klaus.</FONT>
<FONT COLOR="#000000">_______________________________________________</FONT>
<FONT COLOR="#000000">elephant-devel site list</FONT>
<FONT COLOR="#000000"><A HREF="mailto:elephant-devel@common-lisp.net">elephant-devel@common-lisp.net</A></FONT>
<FONT COLOR="#000000"><A HREF="http://common-lisp.net/mailman/listinfo/elephant-devel">http://common-lisp.net/mailman/listinfo/elephant-devel</A></FONT>
</PRE>
</BLOCKQUOTE>
</BODY>
</HTML>