X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Finitialize.lisp;h=32115123b7a9887b685d4da32dc7c435c5e2ffc2;hp=1d96a8f87c34b8c2ac9a86d124d911f93d9af373;hb=09f07ac9d914a83f9426609f3264f4e66b5a6d97;hpb=ce0e343835a040406678dff74a62d1b0cb56f317

diff --git a/base/initialize.lisp b/base/initialize.lisp
index 1d96a8f..3211512 100644
--- a/base/initialize.lisp
+++ b/base/initialize.lisp
@@ -17,7 +17,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package #:clsql-base-sys)
+(in-package #:clsql-base)
 
 (defvar *loaded-database-types* nil
   "Contains a list of database types which have been defined/loaded.")
@@ -43,10 +43,16 @@ to initialize-database-type.")
 (defun initialize-database-type (&key (database-type *default-database-type*))
   "Initialize the given database-type, if it is not already
 initialized, as indicated by `*initialized-database-types*'."
-  (if (member database-type *initialized-database-types*)
-      database-type
-      (when (database-initialize-database-type database-type)
-	(push database-type *initialized-database-types*)
-	database-type)))
-
+  (when (member database-type *initialized-database-types*)
+    (return-from initialize-database-type database-type))
+  
+  (let ((system (intern (concatenate 'string 
+			  (symbol-name '#:clsql-)
+			  (symbol-name database-type)))))
+    (when (not (find-package system))
+      (asdf:operate 'asdf:load-op system)))
+  
+  (when (database-initialize-database-type database-type)
+    (push database-type *initialized-database-types*)
+    database-type))