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