(defmethod (setf slot-value-using-class) (new-value (class standard-db-class)
instance slot-def)
+ "Handle auto syncing values to the database if *db-auto-sync* is t"
(declare (ignore new-value))
(let* ((slot-name (%svuc-slot-name slot-def))
(slot-object (%svuc-slot-object slot-def class))
(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