projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9657: Cleanup and document the FDDL.
[clsql.git]
/
sql
/
fdml.lisp
diff --git
a/sql/fdml.lisp
b/sql/fdml.lisp
index 7c8ae7b2c20237ae22ad9b53be17394a2f961d86..79fa18ef342bff10d97815b90920b303e5cac1e7 100644
(file)
--- a/
sql/fdml.lisp
+++ b/
sql/fdml.lisp
@@
-314,13
+314,6
@@
of (attribute value) pairs."
(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
- (convert-to-db-default-case
- (symbol-name (slot-value table 'name)) database)))
-
#+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))))