projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9670: Automated commit for Debian build of clsql upstream-version-2.11.11
[clsql.git]
/
sql
/
db-interface.lisp
diff --git
a/sql/db-interface.lisp
b/sql/db-interface.lisp
index f48d00d7dad945d90f8d502f0b3336929262589b..d6b1abe9c61c50a26e274485d3a59e7cebffefb1 100644
(file)
--- a/
sql/db-interface.lisp
+++ b/
sql/db-interface.lisp
@@
-128,12
+128,6
@@
if not found. May signal an error if unable to communicate with database server.
(signal-no-database-error database))
(:documentation "Remove all data from database."))
(signal-no-database-error database))
(:documentation "Remove all data from database."))
-(defgeneric database-describe-table (database table)
- (:method ((database t) table)
- (declare (ignore table))
- (signal-no-database-error database))
- (:documentation "Return a list of name/type for columns in table"))
-
(defgeneric database-destory (connection-spec type)
(:documentation
"Destroys a database, returns T if successfull or signals an error
(defgeneric database-destory (connection-spec type)
(:documentation
"Destroys a database, returns T if successfull or signals an error
@@
-330,11
+324,11
@@
of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
;; Prepared statements
(defgeneric database-prepare (stmt types database result-types field-names)
;; Prepared statements
(defgeneric database-prepare (stmt types database result-types field-names)
- (:method (stmt types (database t))
- (declare (ignore stmt types))
+ (:method (stmt types (database t)
result-types field-names
)
+ (declare (ignore stmt types
result-types field-names
))
(signal-no-database-error database))
(signal-no-database-error database))
- (:method (stmt types (database database))
- (declare (ignore stmt types))
+ (:method (stmt types (database database)
result-types field-names
)
+ (declare (ignore stmt types
result-types field-names
))
(error 'sql-database-error
:message
(format nil "DATABASE-PREPARE not implemented for ~S" database)))
(error 'sql-database-error
:message
(format nil "DATABASE-PREPARE not implemented for ~S" database)))
@@
-405,6
+399,4
@@
of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
(unless (is-database-open database)
(signal-closed-database-error database)))
(unless (is-database-open database)
(signal-closed-database-error database)))
-(defgeneric describe-table (table &key database)
- (:documentation "Describes a table, returns a list of name/type for columns in table"))