From 3db136b81ed93cbffde0597bf684d2366860e0f2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 8 Jan 2007 08:44:54 +0000 Subject: [PATCH] r11477: nicer verbose tracing output --- create-sql.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/create-sql.lisp b/create-sql.lisp index ad46fb4..fc8fc84 100644 --- a/create-sql.lisp +++ b/create-sql.lisp @@ -211,7 +211,8 @@ (defun sql-create-indexes (conn &key (indexes +index-cols+) verbose) "SQL Databases: create all indexes" (dolist (idx indexes) - (when verbose (format t "UMLS Import: Creating index ~S.~%" idx)) + (when verbose (format t "UMLS Import: Creating index for column ~A on table ~A.~%" + (first idx) (second idx))) (ignore-errors (sql-execute (drop-index-cmd (car idx) (cadr idx)) conn)) (sql-execute (create-index-cmd (car idx) (cadr idx) (caddr idx)) conn))) @@ -278,7 +279,7 @@ This is much faster that using create-umls-db-insert." "Translate all *umls-files* to optimized import format." (make-noneng-index-file extension) (dolist (f (remove "MRXW_NONENG.RRF" *umls-files* :test #'string= :key #'fil)) - (when verbose (format t "UMLS Import: translating file ~S.~%" (fil f))) + (when verbose (format t "UMLS Import: Translating file ~A.~%" (fil f))) (translate-umls-file f extension :force force))) (defun translate-umls-file (file extension &key force) -- 2.34.1