X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/5abdef2889c7a9a4eae477afc902ff9b198df6f1..8eb242b160e163a1cfc6e810aeda4788116bba1a:/src/pset-impl.lisp

diff --git a/src/pset-impl.lisp b/src/pset-impl.lisp
index f938ad3..338306a 100644
--- a/src/pset-impl.lisp
+++ b/src/pset-impl.lisp
@@ -88,6 +88,16 @@
 (defmethod file-location ((prop property))
   (file-location (p-location prop)))
 
+;;; Input conversions.
+
+(defmethod decode-property ((raw symbol)) (values :symbol raw))
+(defmethod decode-property ((raw integer)) (values :int raw))
+(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.
 
 (defmethod coerce-property-value