From 667c9db132c12759b33419fd408c0718d4694cb3 Mon Sep 17 00:00:00 2001 From: "nathan@acceleration.net" Date: Fri, 22 Feb 2008 15:59:39 -0500 Subject: [PATCH] From darcs: * Teach expressions how to deal with identity columns --- sql/expressions.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.34.1