cl-2sql

commit 27c6dffc8d7a2cbf4106a2ac0ea5ab3945d4beb0
parent db33734e00bf8553751490c047f0ddd86944a781
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed,  7 Sep 2011 00:03:09 +0200

query macro integer-type returns :integer for :sqlite

Diffstat:
M
macros.lisp
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/macros.lisp b/macros.lisp
@@ -632,27 +632,27 @@
      `(backend-ecase
        (:oracle '(function :number :* 0))
        (:postgresql :numeric)
-       (:sqlite :numeric)))
+       (:sqlite :integer)))
     ((cl:<= bit-size 16)
      `(backend-ecase
        (:oracle '(function :number 5 0))
        (:postgresql :smallint)
-       (:sqlite :numeric)))
+       (:sqlite :integer)))
     ((cl:<= bit-size 32)
      `(backend-ecase
        (:oracle '(function :number 10 0))
        (:postgresql :int)
-       (:sqlite :numeric)))
+       (:sqlite :integer)))
     ((cl:<= bit-size 64)
      `(backend-ecase
        (:oracle '(function :number 19 0))
        (:postgresql :bigint)
-       (:sqlite :numeric)))
+       (:sqlite :integer)))
     (cl:t
      `(backend-ecase
        (:oracle '(function :number :* 0))
        (:postgresql :numeric)
-       (:sqlite :numeric)))))
+       (:sqlite :integer)))))
 
 (defsyntax bit-sized-type (type &optional bit-size)
   (cl:cond