X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-rrf.lisp;fp=parse-rrf.lisp;h=84a4b4b168d114b1eaae3b70ec8549d2c8ac00e6;hb=2602e82650f294955a06228db3d4b6a872f1485c;hp=90ddc78c5c887f479108c6c5ee0a49de45f23b24;hpb=9ed7e608a7183ac6f87b0f79d403537909d95b53;p=umlisp.git

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 90ddc78..84a4b4b 100644
--- 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