projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2953: *** empty log message ***
[umlisp.git]
/
parse-2002.lisp
diff --git
a/parse-2002.lisp
b/parse-2002.lisp
index 3d6728ff119dd23cf34f07a3ca0904384f1c6af9..6f593ebeedef63241b5621ccd5e77a907a631f9a 100644
(file)
--- a/
parse-2002.lisp
+++ b/
parse-2002.lisp
@@
-3,7
+3,7
@@
;;; and inserting into SQL databases
;;;
;;; Copyright (c) 2001 Kevin M. Rosenberg, M.D.
;;; and inserting into SQL databases
;;;
;;; Copyright (c) 2001 Kevin M. Rosenberg, M.D.
-;;; $Id: parse-2002.lisp,v 1.
1 2002/10/05 20:17:14
kevin Exp $
+;;; $Id: parse-2002.lisp,v 1.
2 2002/10/09 00:34:47
kevin Exp $
(in-package :umlisp)
(in-package :umlisp)
@@
-91,7
+91,7
@@
(gethash cuisui cuisui-lrl-hash))
(defun sab-srl (sab)
(gethash cuisui cuisui-lrl-hash))
(defun sab-srl (sab)
- (
gu:aif (gethash sab sab-srl-hash) gu
::it 0))
+ (
kmrcl:aif (gethash sab sab-srl-hash) kmrcl
::it 0))
)) ;; closure
(defun set-lrl-hash (key lrl hash)
)) ;; closure
(defun set-lrl-hash (key lrl hash)
@@
-161,7
+161,7
@@
("MRCOC" "KLRL" "INTEGER" 0
(lambda (x) (format nil "~d"
(max (cui-lrl (parse-ui (nth 0 x)))
("MRCOC" "KLRL" "INTEGER" 0
(lambda (x) (format nil "~d"
(max (cui-lrl (parse-ui (nth 0 x)))
- (
gu:aif (cui-lrl (parse-ui (nth 1 x))) gu
::it 0)))))
+ (
kmrcl:aif (cui-lrl (parse-ui (nth 1 x))) kmrcl
::it 0)))))
("MRSAT" "KSRL" "INTEGER" 0
(lambda (x) (format nil "~d" (sab-srl (nth 5 x)))))
("MRREL" "KSRL" "INTEGER" 0
("MRSAT" "KSRL" "INTEGER" 0
(lambda (x) (format nil "~d" (sab-srl (nth 5 x)))))
("MRREL" "KSRL" "INTEGER" 0