[bknr-cvs] r2030 - branches/xml-class-rework/projects/bos

[bknr at bknr.net]

Author: hhubner
Date: 2006-10-22 13:18:39 -0400 (Sun, 22 Oct 2006)
New Revision: 2030

Modified:
   branches/xml-class-rework/projects/bos/build.lisp
Log:
Reinitialize shared libs while starting up in (presumably) original
order so that dependencies between libraries are correctly caught.


Modified: branches/xml-class-rework/projects/bos/build.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/build.lisp	2006-10-22 17:00:41 UTC (rev 2029)
+++ branches/xml-class-rework/projects/bos/build.lisp	2006-10-22 17:18:39 UTC (rev 2030)
@@ -35,7 +35,7 @@
   (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t))
 
 (defun reload-global-table ()
-  (loop for lib-entry in sys::*global-table*
+  (loop for lib-entry in (reverse sys::*global-table*)
 	for (sap . lib-path) = lib-entry
 	when lib-path
 	do (let ((new-sap (sys::dlopen (namestring lib-path)