From a03f2810c40a7e1b15b663ac36f67795510cedfe Mon Sep 17 00:00:00 2001 From: grue Date: Tue, 7 Feb 2006 19:11:29 +0000 Subject: [PATCH] 0.1 fixup darcs-hash:0afa0bdd0276438d01d531551acb205ff47528ad --- if.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/if.lisp b/if.lisp index a5a98ab..f61910d 100644 --- a/if.lisp +++ b/if.lisp @@ -528,7 +528,7 @@ word in dictionary, add it." (function #'read-property-execute) (list #'read-property-list) (t #'read-property-other)) - (slot-value obj property) args))) + (slot-value self property) args))) (defmacro declare-rule (&rest args) "Declare new rules" @@ -682,7 +682,7 @@ word in dictionary, add it." (defun in (obj1 &rest what) "Tests whether the first object is inside some of the others" - (some (lambda (x) (eql (parent obj) x)) what)) + (some (lambda (x) (eql (parent obj1) x)) what)) (defun destroy (obj) "Destroy the object, like, totally!" -- 2.31.1