r9736: fix bug preventing the :DB-CONSTRAINTS View Class slot option accepting a...
authorMarcus Pearce <m.t.pearce@city.ac.uk>
Tue, 6 Jul 2004 10:14:07 +0000 (10:14 +0000)
committerMarcus Pearce <m.t.pearce@city.ac.uk>
Tue, 6 Jul 2004 10:14:07 +0000 (10:14 +0000)
ChangeLog
sql/expressions.lisp
sql/ooddl.lisp

index fee7194..3dba7ff 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+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. 
index 50aa5d1..ace3603 100644 (file)
@@ -841,7 +841,9 @@ uninclusive, and the args from that keyword to the end."
    (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
index 610da26..d44f022 100644 (file)
@@ -121,7 +121,7 @@ in DATABASE which defaults to *DEFAULT-DATABASE*."
       (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)))