X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fexpressions.lisp;h=2b9b913da4685ed9180d0abd5156015092037ff9;hb=43ebc59a11ebc66f3405e85f6aba5351ab707fb3;hp=45d4631b5eaccf70b878b49a6b79907b9d4930c4;hpb=54c765cb4ed3f4de96ced6c5c65bbe2241612954;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 45d4631..2b9b913 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -991,7 +991,9 @@ uninclusive, and the args from that keyword to the end."
    (cons (symbol-name-default-case "ZEROFILL") "ZEROFILL")
    (cons (symbol-name-default-case "AUTO-INCREMENT") "AUTO_INCREMENT")
    (cons (symbol-name-default-case "DEFAULT") "DEFAULT")
-   (cons (symbol-name-default-case "UNIQUE") "UNIQUE")))
+   (cons (symbol-name-default-case "UNIQUE") "UNIQUE")
+   (cons (symbol-name-default-case "IDENTITY") "IDENTITY (1,1)") ;; added for sql-server support
+   ))
 
 (defmethod database-constraint-statement (constraint-list database)
   (declare (ignore database))