X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/2cbdee3da3cb73df67faf1d90823966b8b41388d..9b53c8fc05a9cad189e941e0160a601523b72433:/src/module-parse.lisp?ds=sidebyside

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 0713b76..4bf071c 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -167,6 +167,8 @@
 ;;;--------------------------------------------------------------------------
 ;;; Class declarations.
 
+(export 'class-item)
+
 (defun parse-class-body (scanner pset name supers)
   ;; class-body ::= `{' class-item* `}'
   ;;
@@ -342,13 +344,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