+cl-umlisp (3.0.1-1) unstable; urgency=low
+
+ * Fix column name in find-ucoc
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 6 May 2003 15:52:23 -0600
+
cl-umlisp (3.0.0-1) unstable; urgency=low
* Major refactoring with performance improvments in parsing UMLS files
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.73 2003/05/06 09:05:43 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.74 2003/05/06 21:52:34 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(defun find-ucoc-cui (cui &key (srl *current-srl*))
"Return a list of ucoc for cui"
(with-umlisp-query (mrcoc (cui2 soc cot cof coa kpfstr2) srl cui1
- (parse-cui cui) :lrl "KSRL" :order (cof asc))
+ (parse-cui cui) :lrl klrl :order (cof asc))
(setq cui2 (ensure-integer cui2))
(when (zerop cui2) (setq cui2 nil))
(make-instance 'ucoc :cui1 (parse-cui cui) :cui2 (ensure-integer cui2)
(defun find-ucoc-cui2 (cui2 &key (srl *current-srl*))
"Return a list of ucoc for cui2"
(with-umlisp-query (mrcoc (cui1 soc cot cof coa kpfstr2) srl cui2
- (parse-cui cui2) :lrl "KSRL" :order (cof asc))
+ (parse-cui cui2) :lrl klrl :order (cof asc))
(setq cui2 (ensure-integer cui2))
(when (zerop cui2) (setq cui2 nil))
(make-instance 'ucoc :cui1 (ensure-integer cui1) :cui2 (parse-cui cui2)