From a418a83108a16eb76ce432a2f781a572406ec0c3 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 27 Dec 2006 20:13:38 +0000
Subject: [PATCH] r11406: return t on success

---
 create-sql.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/create-sql.lisp b/create-sql.lisp
index 4a4413a..83c1a22 100644
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -262,7 +262,8 @@ This is much faster that using create-umls-db-insert."
       (sql-create-indexes conn)
       (sql-create-custom-tables conn)
       (sql-create-indexes conn +custom-index-cols+)
-      (sql-create-special-tables conn))))
+      (sql-create-special-tables conn)))
+  t)
 
 (defun translate-all-files (&optional (extension "-trans"))
   "Copy translated files and return postgresql copy commands to import"
-- 
2.34.1