projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove deprecated cl-sql-sqlite from Debian cl-sql-tests package
[clsql.git]
/
sql
/
ooddl.lisp
diff --git
a/sql/ooddl.lisp
b/sql/ooddl.lisp
index 50c37a691a7639ad1c48fdfe71d6f4c1848e4a8b..58322830037366cae60dd816dca8ec66266d7e4e 100644
(file)
--- a/
sql/ooddl.lisp
+++ b/
sql/ooddl.lisp
@@
-101,7
+101,9
@@
in DATABASE which defaults to *DEFAULT-DATABASE*."
(defmethod auto-increment-column-p (slotdef &optional (database clsql-sys:*default-database*))
(declare (ignore database))
(defmethod auto-increment-column-p (slotdef &optional (database clsql-sys:*default-database*))
(declare (ignore database))
- (or (member :auto-increment (listify (view-class-slot-db-constraints slotdef)))
+ (or (intersection
+ +auto-increment-names+
+ (listify (view-class-slot-db-constraints slotdef)))
(slot-value slotdef 'autoincrement-sequence)))
(defmethod %install-class ((self standard-db-class) database
(slot-value slotdef 'autoincrement-sequence)))
(defmethod %install-class ((self standard-db-class) database