From bd54e5099ea4282d3fdb094d0516a09006b08b26 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Mon, 22 Dec 2014 20:42:30 +0000 Subject: [PATCH] zone.lisp: Some minor reformatting. --- zone.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/zone.lisp b/zone.lisp index c5a55b7..53800f0 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)))) -- 2.11.0