X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ffdml.lisp;h=79fa18ef342bff10d97815b90920b303e5cac1e7;hp=7c8ae7b2c20237ae22ad9b53be17394a2f961d86;hb=fdd069770e32d0cfa4b66d6e5cfd4540197660ba;hpb=bf2c17ae4cb07adab3bbff036228572287936d75

diff --git a/sql/fdml.lisp b/sql/fdml.lisp
index 7c8ae7b..79fa18e 100644
--- 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))))