on CMUCL it get an error when I load twice a library with LOAD-FOREIGN-LIBRARY because SYS::LOAD-OBJECT-FILE returns NIL when re-loading a shared object. the attached patch fixes this
--
(sign :name "Stelian Ionescu" :aka "fe[nl]ix"
:quote "Quidquid latine dictum sit, altum sonatur.")
--- old-cffi/src/cffi-cmucl.lisp 2006-12-06 23:11:12.000000000 +0100 +++ new-cffi/src/cffi-cmucl.lisp 2006-12-06 23:11:12.000000000 +0100 @@ -341,7 +341,8 @@ (defun %load-foreign-library (name) "Load the foreign library NAME." - (sys::load-object-file name)) + (or (sys::load-object-file name) + t)) ;;; XXX: doesn't work on Darwin; does not check for errors. I suppose we'd ;;; want something like SBCL's dlclose-or-lose in foreign-load.lisp:66
pgp4qbDXedJBU.pgp
Description: PGP signature
_______________________________________________ cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
