r9657: Cleanup and document the FDDL.

[clsql.git] / sql / fdml.lisp

diff --git a/sql/fdml.lisp b/sql/fdml.lisp
index 50ab024ec38129421c3fb784963e2b7ca0e6bd0c..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))))
@@ -581,8 +574,15 @@ computed for each field."
 
 (defun prepare-sql (sql-stmt types &key (database *default-database*) (result-types :auto) field-names)
   "Prepares a SQL statement for execution. TYPES contains a
-list of UFFI primitive types corresponding to the input parameters. Returns a
-prepared-statement object."
+list of types corresponding to the input parameters. Returns a
+prepared-statement object.
+
+A type can be
+  :int
+  :double
+  :null
+  (:string n)
+"
   (unless (db-type-has-prepared-stmt? (database-type database))
     (error 'sql-user-error 
           :message