zone.lisp: Escape DEL in TinyDNS output.

diff --git a/zone.lisp b/zone.lisp
index 53800f06bc3a29cc746d54cc36df6471431b8909..3aa25ba0794e3b9337fc3594a4bfd42aab11c114 100644 (file)
--- 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)
                    (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)))))
                                (member byte '(#\: #\\) :key #'char-code))
                            (format out "\\~3,'0O" byte)
                            (write-char (code-char byte) out)))))