~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f9bc613
)
src/fragment-parse.lisp: Fix some ugly source formatting.
author
Mark Wooding
<mdw@distorted.org.uk>
Thu, 26 May 2016 08:26:09 +0000
(09:26 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Fri, 8 Jun 2018 18:58:28 +0000
(19:58 +0100)
src/fragment-parse.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/fragment-parse.lisp
b/src/fragment-parse.lisp
index
8d0f939
..
15a7d14
100644
(file)
--- 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)))