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

diff --git a/src/parser/parser-proto.lisp b/src/parser/parser-proto.lisp
index 979a2a5c2d09d3cd6fdfb4557bfbc8d5e504b76b..f7b59939a039d7a326fcce0693187accf3fd0bc9 100644 (file)
--- 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)))
                                                       (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)))))))
 
               (values (list ,(if valuep `(list ,type ,value) type))
                       nil nil)))))))