From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 26 May 2016 08:26:09 +0000 (+0100)
Subject: src/module-parse.lisp: The direct-superclasses list is mandatory.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/ffc2a7b8364cc459ff686cfce645079b52d11466

src/module-parse.lisp: The direct-superclasses list is mandatory.
---

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 9fa9a1f..da1c47f 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -396,15 +396,15 @@ (defun parse-class-body (scanner pset name supers)
 		 (add-to-module *module* class)))))))
 
 (define-pluggable-parser module class (scanner pset)
-  ;; `class' id [`:' id-list] class-body
+  ;; `class' id `:' id-list class-body
   ;; `class' id `;'
   (with-parser-context (token-scanner-context :scanner scanner)
     (parse (seq ("class"
 		 (name :id)
 		 (nil (or (seq (#\;)
 			    (make-class-type name))
-			  (seq ((supers (? (seq (#\: (ids (list () :id #\,)))
-					     ids)))
+			  (seq ((supers (seq (#\: (ids (list () :id #\,)))
+					  ids))
 				(nil (parse-class-body
 				      scanner
 				      pset name supers)))))))))))