code rot fix

darcs-hash:69d3490ac15c5b114323bcf8b77ac4955f4ce8d3

diff --git a/if.lisp b/if.lisp
index f3403dc58c8721186d5bfb2252a57e525799c632..447f69787db91d9ae9364c3290072654903bc4ec 100644 (file)
--- a/if.lisp
+++ b/if.lisp
@@ -483,14 +483,14 @@ word in dictionary, add it."
 \r
 (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
+   :string :number :object :integer :execute :list"\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
+    (: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
     (t (slot-value self property))))\r
 \r
 ;;SECTION 7: IfClass macro and its hairy surroundings\r

diff --git a/iflib.lisp b/iflib.lisp
index 0684f32c18e601843949eae2649459ac8d84539c..1193606f36ca4880c3708172864045d12e88c026 100644 (file)
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -86,8 +86,8 @@
 \r
 ;;Library file names\r
 (defvar *library-file-if* "if.fas")\r
-(defvar *library-file-iflib* "if.fas")\r
-(defvar *library-file-verbs* "if.fas") \r
+(defvar *library-file-iflib* "iflib.fas")\r
+(defvar *library-file-verbs* "verbs.fas") \r
 \r
 ;;SECTION 2: Library-defined classes and objects\r
 \r