From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 22 Dec 2014 22:20:37 +0000 (+0000)
Subject: zone.lisp: Escape DEL in TinyDNS output.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/commitdiff_plain/3986e085fba0fa1aad7c04474060d083cc96b261?ds=sidebyside

zone.lisp: Escape DEL in TinyDNS output.
---

diff --git a/zone.lisp b/zone.lisp
index 53800f0..3aa25ba 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -1322,7 +1322,7 @@ (defmethod zone-write-raw-rrdata ((format (eql :tinydns)) zr type data)
 		    (dotimes (i (length data))
 		      (let ((byte (aref data i)))
 			(if (or (<= byte 32)
-				(>= byte 128)
+				(>= byte 127)
 				(member byte '(#\: #\\) :key #'char-code))
 			    (format out "\\~3,'0O" byte)
 			    (write-char (code-char byte) out)))))