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 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)
(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))))
@@
-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
(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
(unless (db-type-has-prepared-stmt? (database-type database))
(error 'sql-user-error
:message