#:urel #:ucoc #:usty #:uxw #:uxnw #:uxns
#:lexterm #:labr #:lagr #:lcmp #:lmod #:lnom #:lprn #:lprp #:lspl #:ltrm
#:ltyp #:lwd #:sdef #:sstr #:sstre1 #:sstre2
- #:sty #:tui #:def #:sab #:srl #:tty #:rank #:suppres #:atn #:atv #:vcui
+ #:sty #:tui #:def #:sab #:srl #:tty #:rank #:suppress #:atn #:atv #:vcui
#:rcui #:vsab #:code #:saui #:scui #:sdui #:ispref
#:rl #:sty2 #:ui #:ui2 #:ui3 #:eui #:bas #:eui2 #:bas2 #:rui
#:cui #:aui #:lui #:sui #:wd #:lat #:nstr :cuilist
(if like "LIKE" "=")
(clsql-sys::sql-escape-quotes word)
(typecase sab
- (stringp
+ (string
(format nil " c.sab='" (clsql-sys::sql-escape-quotes sab)))
(cons
(format nil " c.sab IN (~('~A'~^,~))"
(mapcar 'clsql-sys::sql-escape-quotes sab)))
(t
(error "SAB missing")))
- (if srl (format nil "AND KCUILRL <= ~D" srl) ""))))
+ (if srl (format nil "AND KCUILRL <= ~A" srl) ""))))
(loop for tuple in (mutex-sql-query query)
collect (make-instance 'ucon (first tuple)))))
(if like "LIKE" "=")
(clsql-sys::sql-escape-quotes word)
(typecase sab
- (stringp
+ (string
(format nil " c.sab='" (clsql-sys::sql-escape-quotes sab)))
(cons
(format nil " c.sab IN (~('~A'~^,~))"