+(defun read-property- (method self property &rest args)\r
+ "read-property using specific method. method is one of keywords:\r
+ :string :number :object :integer :"\r
+ (case method\r
+ (:string (apply #'read-property-string (slot-value self property) args))\r
+ (: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
+ (t (slot-value self property))))\r