From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 26 May 2016 08:26:09 +0000 (+0100)
Subject: src/fragment-parse.lisp: Fix some ugly source formatting.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/caa08874f66de5a1d4a281d1fbc64c81ffa742f7

src/fragment-parse.lisp: Fix some ugly source formatting.
---

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index 8d0f939..15a7d14 100644
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -135,11 +135,12 @@
   (if (if (eq begin t)
 	  (not (scanner-at-eof-p scanner))
 	  (eql (token-type scanner) begin))
-      (multiple-value-prog1 (values (scan-c-fragment scanner
-						     (if (listp end)
-							 end
-							 (list end)))
-				    t t)
+      (multiple-value-prog1
+	  (values (scan-c-fragment scanner
+				   (if (listp end) end
+				       (list end)))
+		  t
+		  t)
 	(scanner-step scanner)
 	(unless keep-end (scanner-step scanner)))
       (values (list begin) nil nil)))