X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/5969df58acec66f58f74bfa68ef294c1dc8ba79c..b7dab7e34d90eae17ceff848ee03634c356a6c0d:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 5e41a5d..b1e3050 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -916,9 +916,7 @@ (defzoneparse :dkim (name data rec)
 	 :data
 	 (split-txt-data
 	  (with-output-to-string (out)
-	    (do ((p plist (cddr p)))
-		((endp p))
-	      (format out "~(~A~)=~A;" (car p) (cadr p)))
+	    (format out "~{~(~A~)=~A; ~}" plist)
 	    (write-string "p=" out)
 	    (when file
 	      (with-open-file