src/pset-{proto,impl}.lisp: Move `decode-property' methods to `impl'.

[sod] / src / pset-impl.lisp

diff --git a/src/pset-impl.lisp b/src/pset-impl.lisp
index f938ad371ac000b0a4fbe1e6200e7a3a93b96a36..8e1743fee270d15ea17cb9caa13cba26f78dbd03 100644 (file)
--- a/src/pset-impl.lisp
+++ b/src/pset-impl.lisp
@@ -88,6 +88,15 @@   (defun truishp (string)
 (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))
+
 ;;; Keywords.
 
 (defmethod coerce-property-value