From caa08874f66de5a1d4a281d1fbc64c81ffa742f7 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Thu, 26 May 2016 09:26:09 +0100 Subject: [PATCH] src/fragment-parse.lisp: Fix some ugly source formatting. --- src/fragment-parse.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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))) -- 2.11.0