aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lambda-tools.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/lambda-tools.lisp b/lambda-tools.lisp
index 9675c0a..ef999f1 100644
--- a/lambda-tools.lisp
+++ b/lambda-tools.lisp
@@ -16,7 +16,7 @@ PREDICATES have side effects, they will be executed only if each of
the preceding predicates in the list returned NIL."
(labels ((disj (x preds)
(if (null preds) nil
- (or (function pred x)
+ (or (funcall (car preds) x)
(disj x (cdr preds))))))
(lambda (x) (disj x predicates))))