(cons (symbol-name-default-case "DEFAULT") "DEFAULT")
(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)
(cons (symbol-name-default-case "DEFAULT") "DEFAULT")
(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)