src/module-parse.lisp (parse-raw-class-item): Commit after declarator.

Once we've parsed declaration specifiers and a declarator, commit to the
current parse before dispatching.

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 95220852b25ed6e7e07e8da35c8b23d4d49d9962..e33b6d3bc3ba342969f838b4e3769a334d57e71b 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -377,6 +377,7 @@ (defun parse-class-body (scanner pset name supers)
                            (peek
                             (seq ((ds (parse-c-type scanner))
                                   (dc (parse-maybe-dotted-declarator ds))
                            (peek
                             (seq ((ds (parse-c-type scanner))
                                   (dc (parse-maybe-dotted-declarator ds))

+                                  (nil (commit))

                                   (nil (class-item-dispatch sub-pset
                                                             ds
                                                             (car dc)
                                   (nil (class-item-dispatch sub-pset
                                                             ds
                                                             (car dc)