projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cb94897
)
r9568: add srl 4 for ustats
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 8 Jun 2004 02:08:30 +0000
(
02:08
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 8 Jun 2004 02:08:30 +0000
(
02:08
+0000)
sql-classes.lisp
patch
|
blob
|
history
diff --git
a/sql-classes.lisp
b/sql-classes.lisp
index 218f55be576f76b9e57065f8ae35880553eca5b5..e70c638d3a485963e4abe5875219b15751ccb811 100644
(file)
--- 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)