X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/5952892a334c94bcb2a03b0013c99a31c23ffc18..bd54e5099ea4282d3fdb094d0516a09006b08b26:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index c5a55b7..53800f0 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -832,13 +832,15 @@ (defzoneparse :dkim (name data rec)
 		     (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))))