From b9fe7fe8b8e24133538f78dbaf6af73b5f0bdec2 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 5 Sep 2006 19:10:55 +0000 Subject: [PATCH] r11098: 2006 updates --- class-support.lisp | 2 +- classes.lisp | 2 +- composite.lisp | 2 +- create-sql.lisp | 2 +- data-structures.lisp | 6 +++--- package.lisp | 2 +- parse-common.lisp | 2 +- parse-macros.lisp | 2 +- parse-rrf.lisp | 2 +- run-tests.lisp | 2 +- sql-classes.lisp | 2 +- sql.lisp | 7 ++++--- umlisp-tests.asd | 1 - umlisp.asd | 4 +--- utils.lisp | 2 +- 15 files changed, 19 insertions(+), 21 deletions(-) diff --git a/class-support.lisp b/class-support.lisp index c14291d..eb600eb 100644 --- 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 feb970c..3d8c2ea 100644 --- 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 ebda355..49f6e2e 100644 --- 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 4658a87..6a31d42 100644 --- 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 beb209a..3f51b3e 100644 --- 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 072d97e..b502ace 100644 --- 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 e2cb6ea..ebd88a8 100644 --- 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 bf784c2..6e006d8 100644 --- 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 145b13c..4f54fb2 100644 --- 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 d47eba8..79433d6 100644 --- 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 363a5ac..293c961 100644 --- 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 7d2b0c6..1c4b057 100644 --- 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 5d31e3c..0913617 100644 --- 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 db42aed..d3439e0 100644 --- 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 208a87e..7fa3395 100644 --- 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. -- 2.34.1