From 12ec2c344df0072023cc8f59c98fb585ac967f1e Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 20 Aug 2019 15:03:58 +0100 Subject: [PATCH] src/parser/parser-proto.lisp: Fix bogus indentation. --- src/parser/parser-proto.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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 @@ (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))))))) -- 2.11.0