From 3986e085fba0fa1aad7c04474060d083cc96b261 Mon Sep 17 00:00:00 2001 Message-Id: <3986e085fba0fa1aad7c04474060d083cc96b261.1714795172.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 22 Dec 2014 22:20:37 +0000 Subject: [PATCH] zone.lisp: Escape DEL in TinyDNS output. Organization: Straylight/Edgeware From: Mark Wooding --- zone.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))))) -- [mdw]