From 6f7197cccbc81924f314d63b6be5fe166f0c98cf Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 11 Aug 2020 09:27:01 -0500 Subject: added positional arguments to $$ --- lambda-tools.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lambda-tools.lisp') diff --git a/lambda-tools.lisp b/lambda-tools.lisp index ef999f1..ecad381 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 (funcall (car preds) x) + (or (funcall (car preds) x) (disj x (cdr preds)))))) (lambda (x) (disj x predicates)))) -- cgit v1.2.3