r11473: improve verbose status msgs

[umlisp.git] / parse-rrf.lisp

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 90ddc78c5c887f479108c6c5ee0a49de45f23b24..84a4b4b168d114b1eaae3b70ec8549d2c8ac00e6 100644 (file)
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -40,12 +40,12 @@
           (clrhash cuisui-lrl-hash)
           (clrhash sab-srl-hash))
       (setf
-         pfstr-hash (make-hash-table :size 1300000)
-         cui-lrl-hash (make-hash-table :size 1300000)
-         lui-lrl-hash (make-hash-table :size 4600000)
-         sui-lrl-hash (make-hash-table :size 5100000)
-         cuisui-lrl-hash (make-hash-table :size 2000000)
-         sab-srl-hash (make-hash-table :size 100 :test 'equal))))
+         pfstr-hash (make-hash-table :size 1500000)
+         cui-lrl-hash (make-hash-table :size 1500000)
+         lui-lrl-hash (make-hash-table :size 5000000)
+         sui-lrl-hash (make-hash-table :size 6000000)
+         cuisui-lrl-hash (make-hash-table :size 6000000)
+         sab-srl-hash (make-hash-table :size 200 :test 'equal))))
 
   (defun ensure-preparse (&optional (force-read nil))
     (when (and *preparse-hash-init?* (not force-read))
@@ -309,7 +309,7 @@
 
 
 (defun gen-ufiles-generic (files-filename dir)
-"Initialize all LEX file structures"
+"Initialize generic UMLS file structures"
   (let ((files '()))
     (with-umls-file (line files-filename)
       (destructuring-bind (fil des fmt cls rws bts) line