zone.lisp: Some minor reformatting.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index c5a55b7e8f0e5d44414271ad6838c8c03cd65893..53800f06bc3a29cc746d54cc36df6471431b8909 100644 (file)
--- 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))))