r11334: fix syntax

[umlisp.git] / sql-classes.lisp

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 54519a02f44aca7943b91e76880378a164ad7ec6..66e2cbbb2d47ed01efba94ce341f73c34dc932b1 100644 (file)
--- 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'~^,~))"