X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fexpressions.lisp;h=63885153259d9fad208f1a9bc3636372936e340e;hb=667c9db132c12759b33419fd408c0718d4694cb3;hp=6aaededd7c6b32aa1c58337c9257fc6e400d29a8;hpb=0a29c2fafbfb7ed42c54208cea576c6b0d600d82;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 6aaeded..6388515 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -967,7 +967,9 @@ uninclusive, and the args from that keyword to the end."
    (cons (symbol-name-default-case "UNSIGNED") "UNSIGNED")
    (cons (symbol-name-default-case "ZEROFILL") "ZEROFILL")
    (cons (symbol-name-default-case "AUTO-INCREMENT") "AUTO_INCREMENT")
-   (cons (symbol-name-default-case "UNIQUE") "UNIQUE")))
+   (cons (symbol-name-default-case "UNIQUE") "UNIQUE")
+   (cons (symbol-name-default-case "IDENTITY") "IDENTITY (1,1)") ;Added Identity for MS-SQLServer support
+   ))
 
 (defmethod database-constraint-statement (constraint-list database)
   (declare (ignore database))