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

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 102b013..96c79c6 100644 (file)
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -951,6 +951,7 @@ decode-property
   cl:integer
   cl:string
   cl:symbol
+  c-fragment
   c-type
   property
 effective-method-after-methods

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.