[elephant-cvs] CVS elephant

[ieslick]

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