r9736: fix bug preventing the :DB-CONSTRAINTS View Class slot option accepting a...

[clsql.git] / sql / expressions.lisp

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 50aa5d1fd478942ec8dfdd6eebd15f6d1bb4d252..ace360378f240fb47b0bf126466d2383b5412b5b 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -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