src/pset-impl.lisp: Decode C fragments as property values.

[sod] / src / pset-impl.lisp

diff --git a/src/pset-impl.lisp b/src/pset-impl.lisp
index 8e1743fee270d15ea17cb9caa13cba26f78dbd03..338306aca5943c907382a08b4731c0e9699d3040 100644 (file)
--- a/src/pset-impl.lisp
+++ b/src/pset-impl.lisp
@@ -96,6 +96,7 @@ (defmethod decode-property ((raw string)) (values :string raw))
 (defmethod decode-property ((raw character)) (values :char raw))
 (defmethod decode-property ((raw function)) (values :func raw))
 (defmethod decode-property ((raw c-type)) (values :type raw))
+(defmethod decode-property ((raw c-fragment)) (values :c-fragment raw))
 
 ;;; Keywords.