From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 8 Jun 2004 02:08:30 +0000 (+0000)
Subject: r9568: add srl 4 for ustats
X-Git-Tag: v2006ac.2~79
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=ec2991ca875523db565edebcf9d4242487c1b868

r9568: add srl 4 for ustats
---

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 218f55b..e70c638 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -866,7 +866,7 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
     (ignore-errors (sql-execute "drop table USTATS" conn))
     (sql-execute "create table USTATS (NAME varchar(160), COUNT bigint, SRL integer)" conn)
     
-    (dotimes (srl 4)
+    (dotimes (srl 5)
       (insert-ustats-count conn "Concept Count" "MRCONSO" "distinct CUI" "KCUILRL" srl)
       (insert-ustats-count conn "Term Count" "MRCONSO" "distinct KCUILUI" "KCUILRL" srl)
       (insert-ustats-count conn "Distinct Term Count" "MRCONSO" "distinct LUI" "KLUILRL" srl)