From e25ccdb531e32c055b9665df424990c9f03e98f1 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Fri, 26 Dec 2014 23:00:58 +0100
Subject: [PATCH] Fix ixf default transform to use princ-to-string.

Also, simplify away the use of compile here.
---
 src/sources/ixf/ixf.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/sources/ixf/ixf.lisp b/src/sources/ixf/ixf.lisp
index da0f04f..372bf30 100644
--- a/src/sources/ixf/ixf.lisp
+++ b/src/sources/ixf/ixf.lisp
@@ -47,9 +47,9 @@
                           #'pgloader.transforms::byte-vector-to-bytea)
 
                          (t
-                          (compile nil (lambda (c)
-                                         (when c
-                                           (format nil "~a" c)))))))))))))
+                          (lambda (c)
+                            (when c
+                              (princ-to-string c))))))))))))
 
 (defmethod map-rows ((copy-ixf copy-ixf) &key process-row-fn)
   "Extract IXF data and call PROCESS-ROW-FN function with a single