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]
/
sql
/
sql.lisp
diff --git
a/sql/sql.lisp
b/sql/sql.lisp
index 077e27dd365bcd7e79aea520667c3b29be4693f9..a904c89ba7af437459d289932cc3f3c4bb6fda18 100644
(file)
--- a/
sql/sql.lisp
+++ b/
sql/sql.lisp
@@
-255,6
+255,12
@@
condition is true."
(write-char #\) *sql-stream*)))
t)
(write-char #\) *sql-stream*)))
t)
+(defmethod describe-table ((table sql-create-table)
+ &key (database *default-database*))
+ (database-describe-table
+ database
+ (string-downcase (symbol-name (slot-value table 'name)))))
+
#+nil
(defmethod add-storage-class ((self database) (class symbol) &key (sequence t))
(let ((tablename (view-table (find-class class))))
#+nil
(defmethod add-storage-class ((self database) (class symbol) &key (sequence t))
(let ((tablename (view-table (find-class class))))