[elephant-cvs] CVS elephant

rread rread at common-lisp.net
Thu Jun 1 12:55:43 UTC 2006


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

Modified Files:
	ele-bdb.asd elephant.asd 
Log Message:
A patch submitted by Julian Stecklina for freebsd


--- /project/elephant/cvsroot/elephant/ele-bdb.asd	2006/04/30 01:03:48	1.9
+++ /project/elephant/cvsroot/elephant/ele-bdb.asd	2006/06/01 12:55:43	1.10
@@ -52,7 +52,7 @@
     (unless (zerop (uffi:run-shell-command
 		    (format nil 
 			    #-freebsd "cd ~A; make bdb"
-			    #+freebds "cd ~A; gmake bdb"
+			    #+freebsd "cd ~A; gmake bdb"
 			    (make-pathname :directory *root-dir*))))
       (format t "Couldn't build library from libsleepycat.c via 'make bdb'~%")
       (error 'operation-error :component c :operation o))))
@@ -73,8 +73,9 @@
   "Operation is done when the foreign library is loaded which should 
    happen when we compile the interface lisp file"
   (and (and (find-package '#:sleepycat)
-	    (symbol-function (intern (symbol-name '#:%db-strerror)
-				     (find-package '#:sleepycat))))
+	    (ignore-errors
+	      (symbol-function (intern (symbol-name '#:%db-strerror)
+				       (find-package '#:sleepycat)))))
        t))
 
 
--- /project/elephant/cvsroot/elephant/elephant.asd	2006/04/26 17:53:43	1.17
+++ /project/elephant/cvsroot/elephant/elephant.asd	2006/06/01 12:55:43	1.18
@@ -52,7 +52,7 @@
     (unless (zerop (uffi:run-shell-command
 		    (format nil 
 			    #-freebsd "cd ~A; make"
-			    #+freebds "cd ~A; gmake"
+			    #+freebsd "cd ~A; gmake"
 			    (make-pathname :directory *root-dir*))))
       (error 'operation-error :component c :operation o))))
 
@@ -72,8 +72,9 @@
   "Operation is done when the foreign library is loaded which should 
    happen when we compile the interface lisp file"
   (and (find-package "ELEPHANT-MEMUTIL")
-       (symbol-function (intern "COPY-BUFS"
-				(find-package "ELEPHANT-MEMUTIL")))
+       (ignore-errors
+	 (symbol-function (intern "COPY-BUFS"
+				  (find-package "ELEPHANT-MEMUTIL"))))
        t))
 
 (defsystem elephant




More information about the Elephant-cvs mailing list