projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
initial version of the autoincrement support for sqlite3 backend
[clsql.git]
/
sql
/
expressions.lisp
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index 8b6167ba2c71f22ba288835e0699a04f554d9431..16bf687567ebc75e7dec65ed895ed5de92fda40b 100644
(file)
--- a/
sql/expressions.lisp
+++ b/
sql/expressions.lisp
@@
-1111,17
+1111,20
@@
uninclusive, and the args from that keyword to the end."
))
(defmethod database-constraint-statement (constraint-list database)
))
(defmethod database-constraint-statement (constraint-list database)
- (declare (ignore database))
- (make-constraints-description constraint-list))
+ (make-constraints-description constraint-list database))
+
+(defmethod database-translate-constraint (constraint database)
+ (assoc (symbol-name constraint)
+ *constraint-types*
+ :test #'equal))
-(defun make-constraints-description (constraint-list)
+(defun make-constraints-description (constraint-list
database
)
(if constraint-list
(let ((string ""))
(do ((constraint constraint-list (cdr constraint)))
((null constraint) string)
(if constraint-list
(let ((string ""))
(do ((constraint constraint-list (cdr constraint)))
((null constraint) string)
- (let ((output (assoc (symbol-name (car constraint))
- *constraint-types*
- :test #'equal)))
+ (let ((output (database-translate-constraint (car constraint)
+ database)))
(if (null output)
(error 'sql-user-error
:message (format nil "unsupported column constraint '~A'"
(if (null output)
(error 'sql-user-error
:message (format nil "unsupported column constraint '~A'"