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

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index d9bde30..a42c31f 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -148,6 +148,29 @@
 				 (cerror* "Error loading Lisp file ~S: ~A"
 					  path error)))))))))))
 
+;;; Setting properties.
+
+(define-pluggable-parser module set (scanner pset)
+  ;; `set' property-list `;'
+  (with-parser-context (token-scanner-context :scanner scanner)
+    (parse (and "set"
+		(lisp (let ((module-pset (module-pset *module*)))
+			(when pset
+			  (pset-map (lambda (prop)
+				      (add-property module-pset
+						    (p-name prop)
+						    (p-value prop)
+						    :type (p-type prop)
+						    :location (p-location prop))
+				      (setf (p-seenp prop) t))
+				    pset))
+			(parse (skip-many (:min 0)
+				 (error (:ignore-unconsumed t)
+				   (parse-property scanner module-pset)
+				   (skip-until (:keep-end t) #\, #\;))
+				 #\,))))
+		#\;))))
+
 ;;; Lisp escape.
 
 (define-pluggable-parser module lisp (scanner pset)