From f8f56cc15a3d62a34e2b73b04503885d787a46aa Mon Sep 17 00:00:00 2001 From: grue Date: Thu, 15 Jun 2006 18:29:51 +0000 Subject: [PATCH] code rot fix darcs-hash:69d3490ac15c5b114323bcf8b77ac4955f4ce8d3 --- if.lisp | 12 ++++++------ iflib.lisp | 4 ++-- 2 files changed, 8 insertions(+), 8 deletions(-) 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 diff --git a/iflib.lisp b/iflib.lisp index 0684f32..1193606 100644 --- a/iflib.lisp +++ b/iflib.lisp @@ -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 -- 2.31.1