X-Git-Url: https://git.distorted.org.uk/~mdw/zone/blobdiff_plain/5952892a334c94bcb2a03b0013c99a31c23ffc18..3986e085fba0fa1aad7c04474060d083cc96b261:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index c5a55b7..3aa25ba 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -832,13 +832,15 @@
 		     (flush))
 		   (when (plusp len)
 		     (cond ((< len 64)
-			    (unless out (setf out (make-string-output-stream)))
+			    (unless out
+			      (setf out (make-string-output-stream)))
 			    (write-string text out))
 			   (t
 			    (do ((i 0 j)
 				 (j 64 (+ j 64)))
 				((>= i len))
-			      (push (subseq text i (min j len)) things))))))))
+			      (push (subseq text i (min j len))
+				    things))))))))
 	(do ((p plist (cddr p)))
 	    ((endp p))
 	  (emit (format nil "~(~A~)=~A;" (car p) (cadr p))))
@@ -1320,7 +1322,7 @@ $TTL ~2@*~D~2%"
 		    (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)))))