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)
 
-(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))))