X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql-classes.lisp;h=66e2cbbb2d47ed01efba94ce341f73c34dc932b1;hb=041283a294efc5303c1632b57536e0823c9f8bee;hp=54519a02f44aca7943b91e76880378a164ad7ec6;hpb=12131484e6e61019e61a281e26d49aaf7dd83690;p=umlisp.git 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'~^,~))"