Permalink
Browse files

Teach expressions how to deal with identity columns

  prev: 667c9db
  • Loading branch information...
1 parent 54c765c commit 43ebc59a11ebc66f3405e85f6aba5351ab707fb3 @UnwashedMeme committed with Feb 22, 2008
Showing with 3 additions and 1 deletion.
  1. +3 −1 sql/expressions.lisp
View
@@ -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))

0 comments on commit 43ebc59

Please sign in to comment.