cl-2sql

Lisp to SQL compiler for Common Lisp
git clone https://logand.com/git/cl-2sql.git/
Log | Files | Refs | README | LICENSE

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:
Mmacros.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