projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5361: *** empty log message ***
[umlisp.git]
/
create-sql.lisp
diff --git
a/create-sql.lisp
b/create-sql.lisp
index 763418d14ef9447cdd8b2ac153c8ffe585370ba0..348131169d7d156c9f64f6745cfee64cb77497e8 100644
(file)
--- a/
create-sql.lisp
+++ b/
create-sql.lisp
@@
-7,7
+7,7
@@
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: create-sql.lisp,v 1.
6 2003/06/10 22:30:16
kevin Exp $
+;;;; $Id: create-sql.lisp,v 1.
7 2003/07/21 09:46:22
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
@@
-154,7
+154,8
@@
conn)))
(defun sql-create-special-tables (conn)
conn)))
(defun sql-create-special-tables (conn)
- (make-usrl conn))
+ (make-usrl conn)
+ (make-ustats))
(defun create-umls-db-by-insert ()
"SQL Databases: initializes entire database via SQL insert commands"
(defun create-umls-db-by-insert ()
"SQL Databases: initializes entire database via SQL insert commands"