#:usrl_freq
)))
-(defpackage umlisp-user
+(defpackage umlisp-orf-user
(:use #:kmrcl #:common-lisp #:hyperobject)
- (:import-from :umlisp . #1#)
+ (:import-from :umlisp-orf . #1#)
(:export . #1#)
(:documentation "User package for UMLisp")))
(with-sql-connection (db)
(clsql:map-query
'list
- #'(lambda (cui pfstr cuilrl)
- (make-instance 'ucon :cui (ensure-integer cui)
- :pfstr pfstr
- :lrl (ensure-integer cuilrl)))
+ #'(lambda (tuple)
+ (destructuring-bind (cui pfstr cuilrl) tuple
+ (make-instance 'ucon :cui (ensure-integer cui)
+ :pfstr pfstr
+ :lrl (ensure-integer cuilrl))))
(query-string mrcon (cui kpfstr kcuilrl) srl nil nil
:order (cui asc) :distinct t)
:database db)))
(with-sql-connection (db)
(clsql:map-query
nil
- #'(lambda (cui pfstr cuilrl)
- (funcall fn
- (make-instance 'ucon :cui (ensure-integer cui)
- :pfstr pfstr
- :lrl (ensure-integer cuilrl))))
+ #'(lambda (tuple)
+ (destructuring-bind (cui pfstr cuilrl) tuple
+ (funcall fn
+ (make-instance 'ucon :cui (ensure-integer cui)
+ :pfstr pfstr
+ :lrl (ensure-integer cuilrl)))))
(query-string mrcon (cui kpfstr kcuilrl) srl nil nil :order (cui asc)
:distinct t)
:database db)))
(with-sql-connection (db)
(clsql:map-query
'list
- #'(lambda (cui lui sui stt lrl pfstr)
- (make-instance 'ustr :cui (ensure-integer cui)
- :lui (ensure-integer lui) :sui (ensure-integer sui)
- :stt stt :str pfstr
- :cuisui (make-cuisui (ensure-integer cui)
- (ensure-integer sui))
- :lrl (ensure-integer lrl)))
+ #'(lambda (tuple)
+ (destructuring-bind (cui lui sui stt lrl pfstr) tuple
+ (make-instance 'ustr :cui (ensure-integer cui)
+ :lui (ensure-integer lui) :sui (ensure-integer sui)
+ :stt stt :str pfstr
+ :cuisui (make-cuisui (ensure-integer cui)
+ (ensure-integer sui))
+ :lrl (ensure-integer lrl))))
(query-string mrcon (cui lui sui stt lrl kpfstr) srl nil nil :lrl lrl
:distinct t
:order (sui asc))
(in-package #:umlisp-orf)
(defvar +umls-sql-map+
- '((:2002AD . "KUMLS2002AD") (:2003AA . "KUMLS2003AA")
- (:2003AB . "KUMLS2003AB") (:2003AC . "KUMLS2003AC")
- (:2004AA . "KUMLS2004AA")))
-(defvar +default-umls-db+ :2003AC)
+ '((:2002ad . "KUMLS2002AD") (:2003aa . "KUMLS2003AA")
+ (:2003ab . "KUMLS2003AB") (:2003ac . "KUMLS2003AC")
+ (:2004aa . "KUMLS2004AA")))
+(defvar +default-umls-db+ :2003ac)
(defun lookup-db-name (db)