X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Finitialize.lisp;fp=base%2Finitialize.lisp;h=8e98d5e2c3d206df270750d37a41df8e7d610b73;hb=43ec897ec7d84892fa59cc9b7858ce23d64a8a1a;hp=ffa08b29d7331fe6bb2a94d12c823bc57e0f1a12;hpb=5e89022823870e5f1b0a255016a8e48d6a9c53b2;p=clsql.git diff --git a/base/initialize.lisp b/base/initialize.lisp index ffa08b2..8e98d5e 100644 --- a/base/initialize.lisp +++ b/base/initialize.lisp @@ -45,9 +45,9 @@ to initialize-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*) - t + database-type (when (database-initialize-database-type database-type) (push database-type *initialized-database-types*) - t))) + database-type)))