[elephant-cvs] CVS elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant
In directory clnet:/tmp/cvs-serv15998

Modified Files:
	ele-bdb.asd 
Log Message:
Fixed lispworks serialization issues with floats & strings; fixed remove-derived-index bug that wouldn't properly delete

--- /project/elephant/cvsroot/elephant/ele-bdb.asd	2007/03/16 14:44:44	1.21
+++ /project/elephant/cvsroot/elephant/ele-bdb.asd	2007/03/18 20:40:50	1.22
@@ -32,7 +32,13 @@
 (defmethod compiler-options ((compiler (eql :gcc)) (c bdb-c-source) &key &allow-other-keys)
   (append (library-directories c)
 	  (call-next-method)
-	  #-(or linux) (list "-ldb-4.5")))
+	  #-(or linux) (list (format nil "-l~A" (get-db-name c)))))
+
+(defun get-db-name (c)
+  (subseq (pathname-name 
+	   (make-pathname :defaults (get-config-option :berkeley-db-lib c)) )
+	  3))
+    
 
 (defmethod compiler-options ((compiler (eql :cygwin)) (c bdb-c-source) &key &allow-other-keys)
   (append (library-directories c)