+6 Jul 2004 Marcus Pearce <m.t.pearce@city.ac.uk>
+ * sql/expressions.lisp: add AUTO-INCREMENT and UNIQUE to the
+ recognised column constraints for CREATE-TABLE and the :DB-CONSTRAINTS
+ View Class slot option.
+ * sql/ooddl.lisp: fix bug preventing the :DB-CONSTRAINTS View Class
+ slot option accepting a list of constraints [reported by Travis Cross].
+
3 Jul 2004 Marcus Pearce <m.t.pearce@city.ac.uk>
* doc/appendix.xml: add notes about idiosyncrasies/unsupported
features and so on the documentation for each backend.
(cons (symbol-name-default-case "NOT") "NOT")
(cons (symbol-name-default-case "NULL") "NULL")
(cons (symbol-name-default-case "PRIMARY") "PRIMARY")
- (cons (symbol-name-default-case "KEY") "KEY")))
+ (cons (symbol-name-default-case "KEY") "KEY")
+ (cons (symbol-name-default-case "AUTO-INCREMENT") "AUTO_INCREMENT")
+ (cons (symbol-name-default-case "UNIQUE") "UNIQUE")))
;;
;; Convert type spec to sql syntax
(setf cdef (append cdef (list (view-class-slot-db-type slotdef))))
(let ((const (view-class-slot-db-constraints slotdef)))
(when const
- (setq cdef (append cdef (list const)))))
+ (setq cdef (append cdef (listify const)))))
cdef)))