From c3b5d60542b9f87c8aced6b244d6219eb71ca7b5 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 22 May 2015 23:49:03 +0200 Subject: [PATCH] Fix type declaration to include null values, fix #238. In passing, add a test case for NIL datetime values in our SQLite sample database. --- src/utils/transforms.lisp | 2 +- test/sqlite/sqlite.db | Bin 69632 -> 69632 bytes 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils/transforms.lisp b/src/utils/transforms.lisp index d2264d3..209c69d 100644 --- a/src/utils/transforms.lisp +++ b/src/utils/transforms.lisp @@ -211,7 +211,7 @@ (integer string-or-integer))) (defun sqlite-timestamp-to-timestamp (date-string-or-integer) - (declare (type (or integer simple-string) date-string-or-integer)) + (declare (type (or null integer simple-string) date-string-or-integer)) (when date-string-or-integer (cond ((and (typep date-string-or-integer 'integer) (= 0 date-string-or-integer)) diff --git a/test/sqlite/sqlite.db b/test/sqlite/sqlite.db index e33bd3cd3bff0a38e7457b5a728f3dd35f7388dc..4a76fd6ddb4580eedc87fa4c34c703ce9da9ba7b 100644 GIT binary patch delta 44 zcmZozz|ydQWr8%L^h6nFM(K?SOWt!a^WS0M|IPo9|ITJXfph%KK(P7#e?0NMY5pag)R1dtm68j&1B0UEJjr0)m<58(h0`w!u>5fIf6v*G_A5dSI;EC2ui