From 5e52fa486aa22bf80d4280c9b8fd4b25f9d0925b Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Sat, 16 Jun 2018 11:30:37 +0900
Subject: [PATCH] Ignore warning about dropping get_column_real_type table if
 it doesn't exist yet. (fixes #31)

---
 src/core/type.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/core/type.lisp b/src/core/type.lisp
index 507af16..4396d00 100644
--- a/src/core/type.lisp
+++ b/src/core/type.lisp
@@ -55,9 +55,10 @@
     (or real-type
         (setf real-type
               (progn
-                (dbi:do-sql conn
-                  (sxql:yield
-                   (sxql:drop-table :get_column_real_type :if-exists t)))
+                (let ((*error-output* (make-broadcast-stream)))
+                  (dbi:do-sql conn
+                    (sxql:yield
+                     (sxql:drop-table :get_column_real_type :if-exists t))))
                 (dbi:do-sql conn
                   (sxql:yield
                    (sxql:create-table :get_column_real_type