From c6271506ab93baffd1b8fe022e0bc7fbbf7db0b4 Mon Sep 17 00:00:00 2001 From: Goo Date: Tue, 27 Mar 2018 20:51:34 +0800 Subject: [PATCH] Add a new transformation function: hex-to-dec Closes #771 --- 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 5a14334..4f6e1ed 100644 --- a/src/utils/transforms.lisp +++ b/src/utils/transforms.lisp @@ -72,7 +72,8 @@ sql-server-uniqueidentifier-to-uuid sql-server-bit-to-boolean varbinary-to-string - base64-decode)) + base64-decode + hex-to-dec)) ;;; @@ -372,3 +373,8 @@ (etypecase string (null nil) (string (base64:base64-string-to-string string)))) + +(defun hex-to-dec (string) + (etypecase hex + (null nil) + (string (write-to-string (parse-integer hex :radix 16)))))