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

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 63d75cdae56232f3db16222ee94e7abef8634e96..3f6c22460f520181d3e9f7dd7f75191729d576c7 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -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)