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