Implement a base46-decode transformation function.

This commit is contained in:
Dimitri Fontaine 2017-08-21 17:06:06 +02:00
parent c62f4279c0
commit a849f893a6

View File

@ -71,7 +71,8 @@
sqlite-timestamp-to-timestamp sqlite-timestamp-to-timestamp
sql-server-uniqueidentifier-to-uuid sql-server-uniqueidentifier-to-uuid
sql-server-bit-to-boolean sql-server-bit-to-boolean
varbinary-to-string)) varbinary-to-string
base64-decode))
;;; ;;;
@ -358,3 +359,8 @@
(null nil) (null nil)
(string string) (string string)
(vector (babel:octets-to-string string))))) (vector (babel:octets-to-string string)))))
(defun base64-decode (string)
(etypecase string
(null nil)
(string (base64:base64-string-to-string string))))