[elephant-devel] Elephant & Lispworks?

[Robert L. Read]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20051215/83e7906a/attachment.html>