From ec2991ca875523db565edebcf9d4242487c1b868 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 8 Jun 2004 02:08:30 +0000 Subject: [PATCH 1/1] r9568: add srl 4 for ustats --- sql-classes.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.34.1