- (:number (apply #'read-property-string (slot-value self property) args))\r
- (:integer (apply #'read-property-string (slot-value self property) args))\r
- (:object (apply #'read-property-string (slot-value self property) args))\r
- (:execute (apply #'read-property-string (slot-value self property) args))\r
- (:list (apply #'read-property-string (slot-value self property) args))\r
+ (:number (apply #'read-property-number (slot-value self property) args))\r
+ (:integer (apply #'read-property-integer (slot-value self property) args))\r
+ (:object (apply #'read-property-object (slot-value self property) args))\r
+ (:execute (apply #'read-property-execute (slot-value self property) args))\r
+ (:list (apply #'read-property-list (slot-value self property) args))\r