X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/211bf0df3e49bda800a748474ada19dff6f15b5f..54ea6ee880f52c23279bf58262ca245b531d04b0:/src/parser/parser-proto.lisp

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)))))))