[elephant-cvs] CVS update: elephant/src/sleepycat.lisp

[blee at common-lisp.net]

Update of /project/elephant/cvsroot/elephant/src
In directory common-lisp.net:/tmp/cvs-serv8199/src

Modified Files:
	sleepycat.lisp 
Log Message:
use asdf packaging info

Date: Tue Sep 21 03:37:21 2004
Author: blee

Index: elephant/src/sleepycat.lisp
diff -u elephant/src/sleepycat.lisp:1.11 elephant/src/sleepycat.lisp:1.12
--- elephant/src/sleepycat.lisp:1.11	Sun Sep 19 19:51:56 2004
+++ elephant/src/sleepycat.lisp	Tue Sep 21 03:37:21 2004
@@ -144,7 +144,11 @@
   ;; Libsleepycat.so: edit this
   (unless
       (uffi:load-foreign-library 
-       "/usr/local/share/common-lisp/elephant-0.2/libsleepycat.so" 
+       (if (find-package 'asdf)
+	   (merge-pathnames 
+	    #p"libsleepycat.so"
+	    (asdf:component-pathname (asdf:find-system 'elephant)))
+	   "/usr/local/share/common-lisp/elephant-0.2/libsleepycat.so")
        :module "libsleepycat")
     (error "Couldn't load libsleepycat!"))