projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2006: debian
[clsql.git]
/
sql
/
db-interface.cl
diff --git
a/sql/db-interface.cl
b/sql/db-interface.cl
index 1ce86816d597771845e83075b4152cd12ed33a3c..b2dd41ec5df64103d2227721bb3bf1c8fd016152 100644
(file)
--- a/
sql/db-interface.cl
+++ b/
sql/db-interface.cl
@@
-9,7
+9,7
@@
;;;; onShoreD to support UncommonSQL front-end
;;;; Date Started: Feb 2002
;;;;
;;;; onShoreD to support UncommonSQL front-end
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: db-interface.cl,v 1.
6 2002/04/19 20:25:20 marc.battyani
Exp $
+;;;; $Id: db-interface.cl,v 1.
7 2002/04/27 20:58:11 kevin
Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai, and onShoreD
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai, and onShoreD
@@
-31,6
+31,14
@@
"The internal generic implementation for checking if
database type library loaded successfully."))
"The internal generic implementation for checking if
database type library loaded successfully."))
+(defgeneric database-type (database-type)
+ (:documentation
+ "Returns database type")
+ (:method (database-type)
+ (declare (ignore database-type))
+ (signal-nodb-error database)))
+
+
(defgeneric database-initialize-database-type (database-type)
(:documentation
"The internal generic implementation of initialize-database-type."))
(defgeneric database-initialize-database-type (database-type)
(:documentation
"The internal generic implementation of initialize-database-type."))