From abfdb01c8df52efd0ee4a4a98519d9aebd1956d9 Mon Sep 17 00:00:00 2001
Message-Id: <abfdb01c8df52efd0ee4a4a98519d9aebd1956d9.1715319699.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 26 Mar 2017 15:16:18 +0100
Subject: [PATCH] src/module-parse.lisp: Use `quote', not `list', to make
 constant lists.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 src/module-parse.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 63d75cd..3f6c224 100644
--- 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.
-		 (parse-delimited-fragment scanner #\= (list #\, #\;)
+		 (parse-delimited-fragment scanner #\= '(#\, #\;)
 					   :keep-end t))
 
 	       (parse-slot-item (sub-pset base-type type name)
-- 
[mdw]