~mdw
/
zone
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bd54e50
)
zone.lisp: Escape DEL in TinyDNS output.
author
Mark Wooding
<mdw@distorted.org.uk>
Mon, 22 Dec 2014 22:20:37 +0000
(22:20 +0000)
committer
Mark Wooding
<mdw@distorted.org.uk>
Mon, 22 Dec 2014 22:22:41 +0000
(22:22 +0000)
zone.lisp
patch
|
blob
|
blame
|
history
diff --git
a/zone.lisp
b/zone.lisp
index
53800f0
..
3aa25ba
100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-1322,7
+1322,7
@@
$TTL ~2@*~D~2%"
(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 12
8
)
+ (>= byte 12
7
)
(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)))))