<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Robert,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>Just out of curiosity, it sounds as if the original authors no longer work on this project. Am I wrong?</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Thanks,</DIV><DIV>Waldo</DIV><DIV><BR><DIV><DIV>On Dec 15, 2005, at 7:41 PM, Robert L. Read wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"> 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><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">_______________________________________________</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">elephant-devel site list</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="mailto:elephant-devel@common-lisp.net">elephant-devel@common-lisp.net</A></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="http://common-lisp.net/mailman/listinfo/elephant-devel">http://common-lisp.net/mailman/listinfo/elephant-devel</A></DIV> </BLOCKQUOTE></DIV><BR></DIV></BODY></HTML>