From 252abdeaa7390e3930f186f23d76e65f64e80f09 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Tue, 17 Jun 2014 21:53:53 +0200 Subject: [PATCH] Find field attributes case-insensitively, fix #80. That's a follow-up to the case management cleanup for fields and columns, wherein the "null if" property would stop being applied properly. --- src/sources/sources.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/sources/sources.lisp b/src/sources/sources.lisp index d1c3b83..389b2f0 100644 --- a/src/sources/sources.lisp +++ b/src/sources/sources.lisp @@ -234,7 +234,8 @@ (destructuring-bind (&key null-as date-format &allow-other-keys) (typecase field-name-or-list (list (cdr field-name-or-list)) - (t (cdr (assoc field-name-or-list fields :test #'string=)))) + (t (cdr (assoc field-name-or-list fields + :test #'string-equal)))) (declare (ignore date-format)) ; TODO (if (null null-as) #'identity