From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 9 Dec 2006 22:38:42 +0000 (+0000)
Subject: r11334: fix syntax
X-Git-Tag: v2006ac.2~44
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=041283a294efc5303c1632b57536e0823c9f8bee

r11334: fix syntax
---

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'~^,~))"