[elephant-cvs] CVS elephant/src/db-bdb
ieslick
ieslick at common-lisp.net
Sat Nov 11 06:27:38 UTC 2006
Update of /project/elephant/cvsroot/elephant/src/db-bdb
In directory clnet:/tmp/cvs-serv5313/src/db-bdb
Modified Files:
sleepycat.lisp
Log Message:
Removed config.lisp and all Makefile related build options. The build is
now entirely driven from the elephant.asd and ele-bdb.asd files with a
simple user customization file, config.sexp, that should be copied to
my-config.sexp and customized to the user's environment. Thanks to
pinterface for the initial patch supporting this approach. Foreign
library loading is also controlled from the asd files now at system
load time rather than at compile time.
--- /project/elephant/cvsroot/elephant/src/db-bdb/sleepycat.lisp 2006/11/10 01:48:49 1.8
+++ /project/elephant/cvsroot/elephant/src/db-bdb/sleepycat.lisp 2006/11/11 06:27:37 1.9
@@ -50,32 +50,7 @@
;;
(eval-when (:compile-toplevel :load-toplevel)
- #+linux
- (unless
- (uffi:load-foreign-library
- elephant::*sleepycat-pthreads-path*
- :module "pthread")
- (error "Couldn't load pthread"))
-
- (unless
- (uffi:load-foreign-library
- elephant::*sleepycat-foreign-library-path*
- :module "sleepycat")
- (error "Couldn't load libdb (Sleepycat)!"))
-
- (unless
- (uffi:load-foreign-library
- (merge-pathnames
- (make-pathname :name "libsleepycat" :type *c-library-extension*)
- (merge-pathnames "src/db-bdb/"
- (asdf:component-pathname (asdf:find-system 'elephant))))
- :module "libsleepycat")
- (error "Couldn't load libdb (Sleepycat)!")))
-
-
- ;; Error handling
- ;; I put this here so we could validate that the library was loaded
-
+
(def-function ("db_strerr" %db-strerror)
((error :int))
:returning :cstring)
@@ -93,6 +68,8 @@
(db-strerror (db-error-errno condition)))))
(:documentation "Berkeley DB / Sleepycat errors."))
+ )
+
;;
;; Constants and Flags
;; eventually write a macro which generates a custom flag function.
More information about the Elephant-cvs
mailing list