From 041283a294efc5303c1632b57536e0823c9f8bee Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 9 Dec 2006 22:38:42 +0000 Subject: [PATCH] r11334: fix syntax --- package.lisp | 2 +- sql-classes.lisp | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/package.lisp b/package.lisp index 6e21f7a..60799b7 100644 --- a/package.lisp +++ b/package.lisp @@ -31,7 +31,7 @@ #: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 diff --git a/sql-classes.lisp b/sql-classes.lisp index 54519a0..66e2cbb 100644 --- a/sql-classes.lisp +++ b/sql-classes.lisp @@ -745,14 +745,14 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS" (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))))) @@ -762,7 +762,7 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS" (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'~^,~))" -- 2.34.1