From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 20 Aug 2019 14:03:58 +0000 (+0100)
Subject: src/parser/parser-proto.lisp: Fix bogus indentation.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/12ec2c344df0072023cc8f59c98fb585ac967f1e

src/parser/parser-proto.lisp: Fix bogus indentation.
---

diff --git a/src/parser/parser-proto.lisp b/src/parser/parser-proto.lisp
index 979a2a5..f7b5993 100644
--- a/src/parser/parser-proto.lisp
+++ b/src/parser/parser-proto.lisp
@@ -923,14 +923,14 @@   (defparse token (:context (context token-parser-context)
 						       (not peekp)
 						       `(not ,peekp))))
 		       (step (parser-step context)))
-		      (cond ((not (constantp peekp))
-			     `(multiple-value-prog1 ,result
-				(unless ,peekp ,step)))
-			    (peekp
-			     result)
-			    (t
-			     `(multiple-value-prog1 ,result
-				,step))))
+		  (cond ((not (constantp peekp))
+			 `(multiple-value-prog1 ,result
+			    (unless ,peekp ,step)))
+			(peekp
+			 result)
+			(t
+			 `(multiple-value-prog1 ,result
+			    ,step))))
 	       (values (list ,(if valuep `(list ,type ,value) type))
 		       nil nil)))))))