projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9186: add attribute caching, improve inititialize-database-type
[clsql.git]
/
base
/
db-interface.lisp
diff --git
a/base/db-interface.lisp
b/base/db-interface.lisp
index cfae08a402ef84c66d7f1ee47cc8e4accb5a5eb2..3b84d95bd7e19badc6048e7ec726150ff8e13558 100644
(file)
--- a/
base/db-interface.lisp
+++ b/
base/db-interface.lisp
@@
-186,7
+186,8
@@
the given lisp type and parameters."))
(:documentation "List all attributes in TABLE."))
(defgeneric database-attribute-type (attribute table database &key owner)
(:documentation "List all attributes in TABLE."))
(defgeneric database-attribute-type (attribute table database &key owner)
- (:documentation "Return the type of ATTRIBUTE in TABLE."))
+ (:documentation "Return the type of ATTRIBUTE in TABLE. Returns multiple values
+of TYPE_NAME (keyword) PRECISION SCALE NULLABLE."))
(defgeneric database-add-attribute (table attribute database)
(:documentation "Add the attribute to the table."))
(defgeneric database-add-attribute (table attribute database)
(:documentation "Add the attribute to the table."))
@@
-278,7
+279,7
@@
the given lisp type and parameters."))
(defmethod database-query :before (query-expression (database database)
result-set field-names)
(defmethod database-query :before (query-expression (database database)
result-set field-names)
- (declare (ignore query-expression result-set))
+ (declare (ignore query-expression result-set
field-names
))
(unless (is-database-open database)
(signal-closed-database-error database)))
(unless (is-database-open database)
(signal-closed-database-error database)))