From 17b2d76a88f0bc4cadc0f100f312587e3b456b10 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 8 Jan 2007 06:40:45 +0000 Subject: [PATCH] r11474: improve verbose status msgs --- create-sql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/create-sql.lisp b/create-sql.lisp index 805cbcd..33e85b6 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -262,7 +262,7 @@ This is much faster that using create-umls-db-insert." (sql-drop-tables conn) (sql-create-tables conn) (dolist (file *umls-files*) - (when verbose (format t "UMLS Import: Importing file ~A.~%" file)) + (when verbose (format t "UMLS Import: Importing file ~A to SQL.~%" (fil file))) (sql-execute (funcall copy-cmd file extension) conn)) (When verbose (format t "UMLS Import: Creating SQL indices.~%")) (sql-create-indexes conn :verbose verbose) -- 2.34.1