code rot fix
Thu Jun 15 11:29:51 PDT 2006 grue@mail.ru
* code rot fix
diff -rN -u old-lifp/if.lisp new-lifp/if.lisp
--- old-lifp/if.lisp 2014-07-28 15:38:56.000000000 -0700
+++ new-lifp/if.lisp 2014-07-28 15:38:56.000000000 -0700
@@ -483,14 +483,14 @@
(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
diff -rN -u old-lifp/iflib.lisp new-lifp/iflib.lisp
--- old-lifp/iflib.lisp 2014-07-28 15:38:56.000000000 -0700
+++ new-lifp/iflib.lisp 2014-07-28 15:38:56.000000000 -0700
@@ -86,8 +86,8 @@
;;Library file names
(defvar *library-file-if* "if.fas")
-(defvar *library-file-iflib* "if.fas")
-(defvar *library-file-verbs* "if.fas")
+(defvar *library-file-iflib* "iflib.fas")
+(defvar *library-file-verbs* "verbs.fas")
;;SECTION 2: Library-defined classes and objects