From 930b540aff19e83778a678ee3532988f87fb907c Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 4 Sep 2015 14:15:48 +0200 Subject: [PATCH] Default to source table name in IXF loading. The cleanup introduced by eabfbb9cc8fd9ba29a2c0594a1b529d0e0265c0c 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. --- src/sources/ixf/ixf.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/sources/ixf/ixf.lisp b/src/sources/ixf/ixf.lisp index 2602b2d..e481260 100644 --- a/src/sources/ixf/ixf.lisp +++ b/src/sources/ixf/ixf.lisp @@ -20,9 +20,10 @@ (unless (and (slot-boundp source 'columns) (slot-value source 'columns)) (setf (slot-value source 'columns) (list-all-columns (conn-handle conn) - (typecase (target source) - (cons (cdr (target source))) - (string (target source)))))) + (or (typecase (target source) + (cons (cdr (target source))) + (string (target source))) + (source source))))) (let ((transforms (when (slot-boundp source 'transforms) (slot-value source 'transforms))))