From db2abd9da3507b4329c06cced193ab7bedb49cea Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] src/module-parse.lisp: Reinstate `peek' around the main item parser. This was removed for debugging. Now we can parse slot initializers again. The error handling for class items is still pretty awful and needs fixing. --- src/module-parse.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/module-parse.lisp b/src/module-parse.lisp index 0713b76..9cad3d4 100644 --- a/src/module-parse.lisp +++ b/src/module-parse.lisp @@ -342,13 +342,13 @@ ;; (which might be dotted). So we parse that here and ;; dispatch based on what we find. (parse (or (plug class-item scanner class sub-pset) - ;(peek + (peek (seq ((ds (parse-c-type scanner)) (dc (parse-maybe-dotted-declarator ds)) (nil (class-item-dispatch sub-pset ds (car dc) - (cdr dc)))));) + (cdr dc)))))) (and "class" (parse-initializer-item sub-pset -- 2.11.0