projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9447: * sql/*.lisp: Add db-type parameter to generic functions READ-SQL...
[clsql.git]
/
sql
/
db-interface.lisp
diff --git
a/sql/db-interface.lisp
b/sql/db-interface.lisp
index 7699841dfc45a201e2bddee31c23132f4a0ca256..3c2f7468326d3adc9ce2c9cd67699ca1864f544d 100644
(file)
--- a/
sql/db-interface.lisp
+++ b/
sql/db-interface.lisp
@@
-172,11
+172,11
@@
if unable to destory."))
(:method ((database t))
(signal-no-database-error database)))
(:method ((database t))
(signal-no-database-error database)))
-(defgeneric database-get-type-specifier (type args database)
+(defgeneric database-get-type-specifier (type args database
db-underlying-type
)
(:documentation "Return the type SQL type specifier as a string, for
the given lisp type and parameters.")
(:documentation "Return the type SQL type specifier as a string, for
the given lisp type and parameters.")
- (:method (type args
(database t)
)
- (declare (ignore type args))
+ (:method (type args
database db-underlying-type
)
+ (declare (ignore type args
db-type
))
(signal-no-database-error database)))
(defgeneric database-list-tables (database &key owner)
(signal-no-database-error database)))
(defgeneric database-list-tables (database &key owner)