X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=if.lisp;h=447f69787db91d9ae9364c3290072654903bc4ec;hb=HEAD;hp=f3403dc58c8721186d5bfb2252a57e525799c632;hpb=d692a63792c9a1decb6b70882664ecd07dadc961;p=lifp.git

diff --git a/if.lisp b/if.lisp
index f3403dc..447f697 100644
--- a/if.lisp
+++ b/if.lisp
@@ -483,14 +483,14 @@ word in dictionary, add it."
 
 (defun read-property- (method self property &rest args)
   "read-property using specific method. method is one of keywords:
-   :string :number :object :integer :"
+   :string :number :object :integer :execute :list"
   (case method
     (:string (apply #'read-property-string (slot-value self property) args))
-    (:number (apply #'read-property-string (slot-value self property) args))
-    (:integer (apply #'read-property-string (slot-value self property) args))
-    (:object (apply #'read-property-string (slot-value self property) args))
-    (:execute (apply #'read-property-string (slot-value self property) args))
-    (:list (apply #'read-property-string (slot-value self property) args))
+    (:number (apply #'read-property-number (slot-value self property) args))
+    (:integer (apply #'read-property-integer (slot-value self property) args))
+    (:object (apply #'read-property-object (slot-value self property) args))
+    (:execute (apply #'read-property-execute (slot-value self property) args))
+    (:list (apply #'read-property-list (slot-value self property) args))
     (t (slot-value self property))))
 
 ;;SECTION 7: IfClass macro and its hairy surroundings