Ignore warning about dropping get_column_real_type table if it doesn'…

…t exist yet. (fixes #31)
fukamachi · Jun 16, 2018 · 5e52fa4 · 5e52fa4
1 parent 0c81793
commit 5e52fa4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git 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