From fe2e1ee956344db30c4b1f78809c08bf244b8f6f Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 6 May 2017 15:10:40 +0200 Subject: [PATCH] Fix comments handling in IXF support. There's no need to add empty string comments, guard against doing that. --- src/sources/ixf/ixf-schema.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/sources/ixf/ixf-schema.lisp b/src/sources/ixf/ixf-schema.lisp index f4de0dc..3162901 100644 --- a/src/sources/ixf/ixf-schema.lisp +++ b/src/sources/ixf/ixf-schema.lisp @@ -89,7 +89,10 @@ (format-default-value (ixf:ixf-column-default col))) :transform (transform-function col) - :comment (ixf:ixf-column-desc col))) + :comment (let ((comment (ixf:ixf-column-desc col))) + (unless (or (null comment) + (string= comment "")) + comment)))) (defun list-all-columns (ixf-stream table) "Return the list of columns for the given IXF-FILE-NAME."