Fix comments handling in IXF support.

There's no need to add empty string comments, guard against doing that.
This commit is contained in:
Dimitri Fontaine 2017-05-06 15:10:40 +02:00
parent e7afe993fa
commit fe2e1ee956

View File

@ -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."