;;;;
;;;; Name: initialize.lisp
;;;; Purpose: Initializion routines for backend
-;;;; Programmers: Kevin M. Rosenberg
+;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: May 2002
;;;;
;;;; $Id$
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)