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 8e1743f..338306a 100644 (file)
--- a/src/pset-impl.lisp
+++ b/src/pset-impl.lisp
@@ -96,6 +96,7 @@
 (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.