X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/2cbdee3da3cb73df67faf1d90823966b8b41388d..7a35400d896e6697902c2880afeba66965bd0f38:/src/module-parse.lisp 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