From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 22 Dec 2014 20:42:30 +0000 (+0000)
Subject: zone.lisp: Some minor reformatting.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/bd54e5099ea4282d3fdb094d0516a09006b08b26

zone.lisp: Some minor reformatting.
---

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))))