From: nathan@acceleration.net Date: Fri, 22 Feb 2008 20:59:39 +0000 (-0500) Subject: From darcs: * Teach expressions how to deal with identity columns X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=667c9db132c12759b33419fd408c0718d4694cb3;hp=0a29c2fafbfb7ed42c54208cea576c6b0d600d82;p=clsql.git From darcs: * Teach expressions how to deal with identity columns --- 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))