From 2ff37fde5a54ecb66c2e8e82a191eebb71797237 Mon Sep 17 00:00:00 2001
From: Robert Mayer <mayer_robert@gmx.net>
Date: Sun, 1 Sep 2024 08:22:34 +0200
Subject: [PATCH] also omit "DEFAULT NULL" when (eq (column-default column)
 :NULL)

---
 src/pgsql/pgsql-ddl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pgsql/pgsql-ddl.lisp b/src/pgsql/pgsql-ddl.lisp
index 03e8962d..2cd87581 100644
--- a/src/pgsql/pgsql-ddl.lisp
+++ b/src/pgsql/pgsql-ddl.lisp
@@ -137,7 +137,7 @@
           (column-type-mod column)
           (column-type-mod column)
           (column-nullable column)
-          (column-default column)
+          (and (column-default column) (not (eq (column-default column) :NULL)))
           (format-default-value column)))
 
 (defvar *pgsql-default-values*