Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Teach expressions how to deal with identity columns

  prev: 667c9db
  • Loading branch information...
commit 43ebc59a11ebc66f3405e85f6aba5351ab707fb3 1 parent 54c765c
@UnwashedMeme authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 sql/expressions.lisp
View
4 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))
Please sign in to comment.
Something went wrong with that request. Please try again.