+
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: umlisp -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-create.lisp,v 1.2 2002/10/21 02:23:46 kevin Exp $
+;;;; $Id: sql-create.lisp,v 1.3 2002/10/21 08:23:52 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(init-umls)
(init-hash-table)
(with-sql-connection (conn)
-;; (sql-drop-tables conn)
-;; (sql-create-tables conn)
-;; (sql-insert-all-values conn)
+ (sql-drop-tables conn)
+ (sql-create-tables conn)
+ (sql-insert-all-values conn)
(sql-create-indexes conn)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
- (sql-create-special-tables)))
+ (sql-create-special-tables conn)))
(defun create-umls-db (&optional (extension ".trans")
(copy-cmd #'mysql-copy-cmd))