X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=45d4631b5eaccf70b878b49a6b79907b9d4930c4;hb=ef93cbe09e01bb540651e6719eb4e8fe7ebeefd0;hp=5e75b01ccdfaaae1842dabe6dea7179cb77674e0;hpb=95704a836b85f40018186f97b332fd3873168a53;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 5e75b01..45d4631 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -990,6 +990,7 @@ 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 "DEFAULT") "DEFAULT")
    (cons (symbol-name-default-case "UNIQUE") "UNIQUE")))
 
 (defmethod database-constraint-statement (constraint-list database)
@@ -1009,6 +1010,9 @@ uninclusive, and the args from that keyword to the end."
                        :message (format nil "unsupported column constraint '~A'"
                                         constraint))
                 (setq string (concatenate 'string string (cdr output))))
+	    (when (equal (symbol-name (car constraint)) "DEFAULT")
+	      (setq constraint (cdr constraint))
+	      (setq string (concatenate 'string string " " (car constraint))))
             (if (< 1 (length constraint))
                 (setq string (concatenate 'string string " "))))))))