- (gu:awhen (car (mutex-sql-query ls))
- (make-instance 'ucon :cui cui :pfstr (car gu::it)
- :lrl (ensure-integer (cadr gu::it)))))
+ (kmrcl:awhen (car (mutex-sql-query ls))
+ (make-instance 'ucon :cui cui :pfstr (car kmrcl::it)
+ :lrl (ensure-integer (cadr kmrcl::it)))))
- (gu:aif (car (mutex-sql-query ls))
- (make-instance 'ucon :cui (ensure-integer (nth 0 gu::it))
- :pfstr (nth 1 gu::it)
- :lrl (ensure-integer (nth 2 gu::it)))
+ (kmrcl:aif (car (mutex-sql-query ls))
+ (make-instance 'ucon :cui (ensure-integer (nth 0 kmrcl::it))
+ :pfstr (nth 1 kmrcl::it)
+ :lrl (ensure-integer (nth 2 kmrcl::it)))
(let ((ls (format nil "select LAT,TS,KLUILRL from MRCON where KCUILUI=~d limit 1" (make-cuilui cui lui))))
(when srl
(string-append ls (format nil " and KLUILRL <= ~d" srl)))
(let ((ls (format nil "select LAT,TS,KLUILRL from MRCON where KCUILUI=~d limit 1" (make-cuilui cui lui))))
(when srl
(string-append ls (format nil " and KLUILRL <= ~d" srl)))
(format nil "select BAS,ABR,EUI2,BAS2 from LRABR where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,ABR,EUI2,BAS2 from LRABR where EUI=~d" eui))
(let ((results '()))
(format nil "select EUI,ABR,EUI2,BAS2 from LRABR where BAS='~a'" bas))
(let ((results '()))
(format nil "select EUI,ABR,EUI2,BAS2 from LRABR where BAS='~a'" bas))
(let ((results '()))
(format nil "select STR,SCA,AGR,CIT,BAS from LRAGR where EUI=~d" eui))
(let ((results '()))
(format nil "select STR,SCA,AGR,CIT,BAS from LRAGR where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,SCA,PSN_MOD,FEA from LRMOD where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,SCA,PSN_MOD,FEA from LRMOD where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,SCA,EUI2,BAS2,SCA2 from LRNOM where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,SCA,EUI2,BAS2,SCA2 from LRNOM where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,NUM,GND,CAS,POS,QNT,FEA from LRPRN where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,NUM,GND,CAS,POS,QNT,FEA from LRPRN where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,STR,SCA,FEA from LRPRP where EUI=~d" eui))
(let ((results '()))
(format nil "select BAS,STR,SCA,FEA from LRPRP where EUI=~d" eui))
(let ((results '()))
(push (ensure-integer (nth 0 tuple)) results))
(make-instance 'lwd :wrd wrd
:euilist (nreverse results)))))
(push (ensure-integer (nth 0 tuple)) results))
(make-instance 'lwd :wrd wrd
:euilist (nreverse results)))))
(format nil "select RT,STY_RL,STN_RTN,DEF,EX,UN,RH,ABR,RIN from SRDEF where UI=~d" ui)))
(format nil "select RT,STY_RL,STN_RTN,DEF,EX,UN,RH,ABR,RIN from SRDEF where UI=~d" ui)))