zone.lisp (:dkim): Replace a loop with `format' trickery.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 5e41a5d151f42b73fc76b8a8e3effca2d085ba1e..b1e3050bb148d9a31cd3931095080f89fcdb76f7 100644 (file)
--- 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