From c9f9659084a3205fd37ee4b05ebbc173721d0e9c Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 21 May 2014 17:06:08 +0100
Subject: [PATCH] Hack :ANY pseudo-record type to cope with the new domain name
 objects.

---
 distorted.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/distorted.lisp b/distorted.lisp
index 62ff64c..80200d2 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -28,9 +28,10 @@
     (dolist (provider (list* any-provider default-provider other-providers))
       (zone-set-address #'rec (cdr provider)
 			:make-ptr-p (eq provider any-provider)
-			:name (concatenate 'string prefix "."
-					   (string-downcase (car provider))
-					   "." (string-downcase zname))))))
+			:name (domain-name-concat prefix
+						  (zone-parse-host
+						   (car provider)
+						   zname))))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Other definitions.
-- 
2.11.0