;;;; FILE IDENTIFICATION
;;;;
;;;; Name: initialize.lisp
-;;;; Purpose: Initializion routines for backend
-;;;; Programmers: Kevin M. Rosenberg
+;;;; Purpose: Initializion routines for db backend
+;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: May 2002
;;;;
-;;;; $Id$
-;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
is added to *INITIALIZED-DATABASE-TYPES*. "
(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)))))
+
+ (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*)
(setf *default-database-type* database-type)