src/module-parse.lisp: Use `quote', not `list', to make constant lists.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 15bfe87161fc113df1256ada44388f9a4fa86142..3f6c22460f520181d3e9f7dd7f75191729d576c7 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -281,7 +281,7 @@ (defun parse-class-body (scanner pset name supers)
                 ;; Parse a declarator or dotted-declarator, i.e., one whose
                 ;; centre is
                 ;;
                 ;; 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
                 ;;
                 ;; 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 @@ (defun parse-class-body (scanner pset name supers)
                 ;;
                 ;; Return a VALUE, ready for passing to a `sod-initializer'
                 ;; constructor.
                 ;;
                 ;; 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)
                                           :keep-end t))
 
               (parse-slot-item (sub-pset base-type type name)