X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=a7b080414cfebc599c8e3e77bc637d888646e506;hb=188873f068b0c53febe4ee0ededbc755fce4869d;hp=2841201aa8a5917aa21e08d99331c203065dc57a;hpb=63e2c4c3263fc0e5feaff7498350829f4bbdfcec;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2841201..a7b0804 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -41,15 +41,16 @@
       ,%%fields
       ,@(when %%where (list %%where))
       ,@(when %%where
-	      `((typecase ,where-value
-		  (fixnum
-		   (concatenate 'string "='" (prefixed-fixnum-string ,where-value #\0 10) "'"))
-		  (number
-		   (concatenate 'string "='" (write-to-string ,where-value) "'"))
-		  (null
-		   " is null")
-		  (t
-		   (format nil ,(if like "'%~A%'" "='~A'") ,where-value)))))
+	  `((typecase ,where-value
+	      #+ignore
+	      (fixnum
+	       (concatenate 'string "='" (prefixed-fixnum-string ,where-value #\0 10) "'"))
+	      (number
+	       (concatenate 'string "='" (write-to-string ,where-value) "'"))
+	      (null
+	       " is null")
+	      (t
+	       (format nil ,(if like "'%~A%'" "='~A'") ,where-value)))))
       (if ,srl (concatenate 'string ,%%lrl (write-to-string ,srl)) "")
       ,@(when %%order (list %%order))
       ,@(when single (list " limit 1")))))
@@ -64,7 +65,7 @@
    (if where-name
        (format nil
 	       (typecase where-value
-		 (number "=~D")
+		 (number "='~D'")
 		 (null " is null")
 		 (t
 		  (if like " like '%~A%""='~A'")))