From 0b911ce4954aa8813e3c792c4362bad5c4bd9cce Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 6 May 2003 02:29:46 +0000 Subject: [PATCH] r4828: Auto commit for Debian build --- sql-create.lisp | 4 ++-- utils.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/sql-create.lisp b/sql-create.lisp index 9ea3a16..45412f6 100644 --- a/sql-create.lisp +++ b/sql-create.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: sql-create.lisp,v 1.10 2003/05/06 02:19:46 kevin Exp $ +;;;; $Id: sql-create.lisp,v 1.11 2003/05/06 02:21:30 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -202,7 +202,7 @@ This is much faster that using create-umls-db-insert." (dolist (input-file input-files) (with-open-file (ostream :direction :output) (with-umls-file (line (umls-file-fil input-file)) - (umls-translate file line ostream) + (umls-translate input-file line ostream) (princ #\newline ostream))))))) (defun translate-umls-file (file extension) diff --git a/utils.lisp b/utils.lisp index d2a5dd8..8415192 100644 --- a/utils.lisp +++ b/utils.lisp @@ -7,7 +7,7 @@ ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: utils.lisp,v 1.4 2003/05/06 02:14:59 kevin Exp $ +;;;; $Id: utils.lisp,v 1.5 2003/05/06 02:21:30 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -91,7 +91,7 @@ (defun decompose-cuisui (cuisui) "Returns the CUI and SUI of a cuisui number" - (floor cuisui cuisui +cuisui-scale+)) + (floor cuisui +cuisui-scale+)) ;;; Lookup functions for uterms,ustr in ucons -- 2.34.1