From a849f893a603ee55a0045b892bc1e994b24e3bd9 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Mon, 21 Aug 2017 17:06:06 +0200
Subject: [PATCH] Implement a base46-decode transformation function.

---
 src/utils/transforms.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/utils/transforms.lisp b/src/utils/transforms.lisp
index f5b43dd..dff12d1 100644
--- a/src/utils/transforms.lisp
+++ b/src/utils/transforms.lisp
@@ -71,7 +71,8 @@
                  sqlite-timestamp-to-timestamp
                  sql-server-uniqueidentifier-to-uuid
                  sql-server-bit-to-boolean
-                 varbinary-to-string))
+                 varbinary-to-string
+                 base64-decode))
 
 
 ;;;
@@ -358,3 +359,8 @@
       (null nil)
       (string string)
       (vector (babel:octets-to-string string)))))
+
+(defun base64-decode (string)
+  (etypecase string
+    (null    nil)
+    (string (base64:base64-string-to-string string))))