projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8963: pre 2.6.4
[clsql.git]
/
base
/
basic-sql.lisp
diff --git
a/base/basic-sql.lisp
b/base/basic-sql.lisp
index 64fdb44038d4741eecb6b5c7ceb27e5768067e66..5c12002bcfe527802991a4d4ebd2ca16629778cb 100644
(file)
--- a/
base/basic-sql.lisp
+++ b/
base/basic-sql.lisp
@@
-60,8
+60,7
@@
pair."))
(values))
(values))
-(defun describe-table (table &key (database *default-database*))
- "Return list of 2-element lists containing table name and type."
+(defmethod describe-table ((table string) &key (database *default-database*))
(database-describe-table database table))
(defmacro do-query (((&rest args) query-expression
(database-describe-table database table))
(defmacro do-query (((&rest args) query-expression