Default to source table name in IXF loading.

The cleanup introduced by eabfbb9cc8 did
break the case when we lack a target table name for the IXF load. Just
default to using the source name in that case.
This commit is contained in:
Dimitri Fontaine 2015-09-04 14:15:48 +02:00
parent 33fc3add25
commit 930b540aff

View File

@ -20,9 +20,10 @@
(unless (and (slot-boundp source 'columns) (slot-value source 'columns)) (unless (and (slot-boundp source 'columns) (slot-value source 'columns))
(setf (slot-value source 'columns) (setf (slot-value source 'columns)
(list-all-columns (conn-handle conn) (list-all-columns (conn-handle conn)
(typecase (target source) (or (typecase (target source)
(cons (cdr (target source))) (cons (cdr (target source)))
(string (target source)))))) (string (target source)))
(source source)))))
(let ((transforms (when (slot-boundp source 'transforms) (let ((transforms (when (slot-boundp source 'transforms)
(slot-value source 'transforms)))) (slot-value source 'transforms))))