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.

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 0713b76f2c893d3a6af0de897055042003e1dbb4..9cad3d4871dd9aba0bf2dc9294d1530773690e1c 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -342,13 +342,13 @@ (defun parse-class-body (scanner pset name supers)
                 ;; (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