[elephant-devel] Elephant & Lispworks?

Waldo Rubinstein waldo at trianet.net
Fri Dec 16 01:01:55 UTC 2005


Robert,

Just out of curiosity, it sounds as if the original authors no longer  
work on this project. Am I wrong?

Thanks,
Waldo

On Dec 15, 2005, at 7:41 PM, Robert L. Read wrote:

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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20051215/5b43f3ee/attachment.html>


More information about the elephant-devel mailing list