From: grue <grue@mail.ru>
Date: Tue, 7 Feb 2006 19:11:29 +0000 (+0000)
Subject: 0.1 fixup
X-Git-Url: https://jxself.org/git/?p=lifp.git;a=commitdiff_plain;h=a03f2810c40a7e1b15b663ac36f67795510cedfe

0.1 fixup

darcs-hash:0afa0bdd0276438d01d531551acb205ff47528ad
---

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!"