projects
/
lifp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6dcb444
)
0.1 fixup
author
grue
<grue@mail.ru>
Tue, 7 Feb 2006 19:11:29 +0000
(19:11 +0000)
committer
grue
<grue@mail.ru>
Tue, 7 Feb 2006 19:11:29 +0000
(19:11 +0000)
darcs-hash:
0afa0bdd0276438d01d531551acb205ff47528ad
if.lisp
patch
|
blob
|
history
diff --git
a/if.lisp
b/if.lisp
index a5a98abec8a3082ea833b2838dbddd88392e4133..f61910d388df514c7691a3bc079047fc952d2820 100644
(file)
--- a/
if.lisp
+++ b/
if.lisp
@@
-528,7
+528,7
@@
word in dictionary, add it."
(function #'read-property-execute)
\r
(list #'read-property-list)
\r
(t #'read-property-other))
\r
(function #'read-property-execute)
\r
(list #'read-property-list)
\r
(t #'read-property-other))
\r
- (slot-value
obj
property) args)))
\r
+ (slot-value
self
property) args)))
\r
\r
(defmacro declare-rule (&rest args)
\r
"Declare new rules"
\r
\r
(defmacro declare-rule (&rest args)
\r
"Declare new rules"
\r
@@
-682,7
+682,7
@@
word in dictionary, add it."
\r
(defun in (obj1 &rest what)
\r
"Tests whether the first object is inside some of the others"
\r
\r
(defun in (obj1 &rest what)
\r
"Tests whether the first object is inside some of the others"
\r
- (some (lambda (x) (eql (parent obj) x)) what))
\r
+ (some (lambda (x) (eql (parent obj
1
) x)) what))
\r
\r
(defun destroy (obj)
\r
"Destroy the object, like, totally!"
\r
\r
(defun destroy (obj)
\r
"Destroy the object, like, totally!"
\r