r11098: 2006 updates

diff --git a/class-support.lisp b/class-support.lisp
index c14291d7607e9552f1a878a046e5bd95bb21ec19..eb600eb5b45a2de4d6c5b11ed4919cc833e20ddf 100644 (file)
--- a/class-support.lisp
+++ b/class-support.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/classes.lisp b/classes.lisp
index feb970cb2fe301c957ee8c4f78ea57c7c5e27c56..3d8c2ea181f390d1cce47385f329c5af63fbab48 100644 (file)
--- a/classes.lisp
+++ b/classes.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/composite.lisp b/composite.lisp
index ebda3552e90644bf016316bdcf726e3da8b73b1e..49f6e2e06f551ed28ba9b99f06c82147b9148175 100644 (file)
--- a/composite.lisp
+++ b/composite.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/create-sql.lisp b/create-sql.lisp
index 4658a877ea7382c59a4ab2b892bb3ca8cd37f0f9..6a31d422a4e5be388a55885c80bfe8abd094b1ee 100644 (file)
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/data-structures.lisp b/data-structures.lisp
index beb209a844b1c94eba38e24b875d23061a6bd0e4..3f51b3ed45df3c8f4502d22d97d90b191f7f1332 100644 (file)
--- a/data-structures.lisp
+++ b/data-structures.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -20,8 +20,8 @@
 
 ;;; Paths for files
 
-(defvar *umls-path*
-  (make-pathname :directory '(:absolute "data" "umls" "2004AA"))
+(defparameter *umls-path*
+  (make-pathname :directory '(:absolute "home" "kevin" "2006AC"))
   "Path for base of UMLS data files")
 
 (defvar *meta-path* 

diff --git a/package.lisp b/package.lisp
index 072d97e5662e6d5cce6b9d86354e85cf23c42754..b502ace3b2421e4088aeebc731dda4143592b402 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/parse-common.lisp b/parse-common.lisp
index e2cb6ea26955d6abaaf2dcc636517e2c0427dfc5..ebd88a895beaaf9429777c10119d5314de4b5ab4 100644 (file)
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/parse-macros.lisp b/parse-macros.lisp
index bf784c202e25432b00fc7501c90918464a07bfdd..6e006d816ef9a9fd4cd989b4c6cc7b949b8b8d92 100644 (file)
--- a/parse-macros.lisp
+++ b/parse-macros.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/parse-rrf.lisp b/parse-rrf.lisp
index 145b13c24409de805aed34abd28d27df4dc83b65..4f54fb2de63755dcb8571479610d84e8435d9e8a 100644 (file)
--- a/parse-rrf.lisp
+++ b/parse-rrf.lisp
@@ -11,7 +11,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/run-tests.lisp b/run-tests.lisp
index d47eba84d9ceb19ae395f76f0a58cbec9d256b87..79433d691a658c6ab119ca327edd32e25d25bb7d 100644 (file)
--- a/run-tests.lisp
+++ b/run-tests.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 363a5ac59a5871b91704dc94b7c89894d4afb62d..293c961b43157fb7d6af9c7fa97c696a0a325bf1 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.

diff --git a/sql.lisp b/sql.lisp
index 7d2b0c6d652171eb9c6e1146986e6ff4776a3960..1c4b0579a413fc1d9ee6277fbc7c7546558389af 100644 (file)
--- a/sql.lisp
+++ b/sql.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -19,8 +19,9 @@
 (in-package #:umlisp)
 
 (defvar +umls-sql-map+
-    '((:2004aa . "KUMLS2004AA")))
-(defvar +default-umls-db+ :2004aa)
+    '((:2004aa . "KUMLS2004AA")
+      (:2006ac . "KUMLS2006AC")))
+(defvar +default-umls-db+ :2006ac)
 
 
 (defun lookup-db-name (db)

diff --git a/umlisp-tests.asd b/umlisp-tests.asd
index 5d31e3cfa83850de855d7d0480dbe80e7da6aa9a..091361769ae6f65368ad353ca502b84607b0a489 100644 (file)
--- a/umlisp-tests.asd
+++ b/umlisp-tests.asd
@@ -29,4 +29,3 @@
   (or (funcall (intern (symbol-name '#:run-tests)
                       (find-package '#:umlisp-tests)))
       (error "test-op failed")))
-

diff --git a/umlisp.asd b/umlisp.asd
index db42aed0eeb920764dc07d123d35cdd237e4fd5f..d3439e036ecc39b1174766c0e7bd3997f7646f42 100644 (file)
--- a/umlisp.asd
+++ b/umlisp.asd
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -19,7 +19,6 @@
 (defpackage #:umlisp-system (:use #:asdf #:cl))
 (in-package #:umlisp-system)
 
-#+(or allegro lispworks cmu sbcl openmcl scl)
 (defsystem umlisp
     :components 
   ((:file "package")
@@ -36,7 +35,6 @@
    (:file "composite" :depends-on ("sql-classes")))
   :depends-on (clsql clsql-postgresql-socket kmrcl hyperobject))
 
-#+(or allegro lispworks cmu sbcl openmcl scl)
 (defmethod perform ((o test-op) (c (eql (find-system 'umlisp))))
   (operate 'load-op 'umlisp-tests)
   (operate 'test-op 'umlisp-tests :force t))

diff --git a/utils.lisp b/utils.lisp
index 208a87e1ba4f6dbc0d2c40ee799b3b46be061c7e..7fa3395f2ca870887c308b0c920f5854d4c88e4b 100644 (file)
--- a/utils.lisp
+++ b/utils.lisp
@@ -10,7 +10,7 @@
 ;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.