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

Modified Files: TODO ele-bdb.asd Log Message: Fixes for Win32 allegro build; lispwork builds but fails to run; new test of :index class keyword which fails

--- /project/elephant/cvsroot/elephant/TODO 2007/03/01 03:03:07 1.65 +++ /project/elephant/cvsroot/elephant/TODO 2007/03/03 17:24:55 1.66 @@ -20,10 +20,9 @@ - Migration: Improve scaling properties of migration so all objects do not need to be resident in memory? - Migration: Validate that graph structures with loop are copied properly - Migration: Improve printing and informative messages +- Fix class index slot option (and validate test)

Lisp Support: -- Win32 builds - - Windows support for asdf-based library builds? Include 32-bit dll in release? - Validate Lispworks on PC - Validate OpenMCL pre-1.1 on Mac OS X - Validate OpenMCL 1.1 and/or 64-bit on Mac OS X? @@ -67,6 +66,7 @@ x Fix a bug where slot-makunbound on a persistent object failed to remove secondary index references for class and slot indices. Made a test to validate this. (Ian) x Fixed a bug in string serialization for char-code > #x7F (Henrik, Ties) +x

Minor Bugs: x Enable with-transactions to properly process forms returning multiple values (Ian) @@ -83,6 +83,7 @@ x Orthogonal feature addition: map-index, map-class and map-instances to avoid consing (Ian) x Tests to validate new map interfaces on top of existing tests (Ian) x Added support and tests for serializing structure objects on all supported platforms (Ian) +x Fixed cygwin-ming32 -mno-cygwin build for Windows for Lispworks and Allegro (Frank, Ian)

DEVELOPMENT CHECKINS:

--- /project/elephant/cvsroot/elephant/ele-bdb.asd 2007/02/22 20:24:11 1.18 +++ /project/elephant/cvsroot/elephant/ele-bdb.asd 2007/03/03 17:24:58 1.19 @@ -32,24 +32,21 @@ (defmethod compiler-options ((compiler (eql :gcc)) (c bdb-c-source) &key &allow-other-keys) (append (library-directories c) (call-next-method) - (list "-ldb"))) + (list "-ldb45")))

(defmethod compiler-options ((compiler (eql :cygwin)) (c bdb-c-source) &key &allow-other-keys) (append (library-directories c) (call-next-method) - (list "-ldb"))) + (list "-ldb45")))

(defun library-directories (c) (let ((include (make-pathname :directory (get-config-option :berkeley-db-include-dir c))) (lib (make-pathname :directory (get-config-option :berkeley-db-lib-dir c)))) + #+(or windows mswindows) + (list (format nil "-L"~A"" lib) (format nil "-I"~A"" include)) + #-(or windows mswindows) (list (format nil "-L~A" lib) (format nil "-I~A" include))))

- -;;Cygwin script: -;;gcc -mno-cygwin -mwindows -c -Wall -std=c99 -L/c/DB/Berkeley\ DB\ 4.4.20/lib/ -I/c/DB/Berkeley\ DB\ 4.4.20/include/ libsleepycat.c -;;dlltool -z libsleepycat.def --export-all-symbols -e exports.o -l libsleepycat.lib libsleepycat.o -;;gcc -shared -mno-cygwin -mwindows -L/c/DB/Berkeley\ DB\ 4.4.20/bin/ -llibdb44 libsleepycat.o exports.o -o libsleepycat.dll - (defmethod foreign-libraries-to-load-first ((c bdb-c-source)) (remove-if #'(lambda (x) (null (car x))) (list