X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/add6883c4623cc42552bc3587aad866184f37c06..abfdb01c8df52efd0ee4a4a98519d9aebd1956d9:/src/module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 15bfe87..3f6c224 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -281,7 +281,7 @@
 		 ;; Parse a declarator or dotted-declarator, i.e., one whose
 		 ;; centre is
 		 ;;
-		 ;; maybe-dotted-identifier ::= [id `.'] id
+		 ;; maybe-dotted-name ::= [id `.'] id
 		 ;;
 		 ;; A plain identifier is returned as a string, as usual; a
 		 ;; dotted identifier is returned as a cons cell of the two
@@ -327,7 +327,7 @@
 		 ;;
 		 ;; Return a VALUE, ready for passing to a `sod-initializer'
 		 ;; constructor.
-		 (parse-delimited-fragment scanner #\= (list #\, #\;)
+		 (parse-delimited-fragment scanner #\= '(#\, #\;)
 					   :keep-end t))
 
 	       (parse-slot-item (sub-pset base-type type name)