From a767b4b5016005fd3e37126e1437e8cca56b60e1 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 26 Sep 2014 22:54:51 -0700 Subject: * lib.c (do_and): Fix andf again: (andf) not producing a function that returns t, as documented. --- lib.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib.c') diff --git a/lib.c b/lib.c index dfed7700..fbe6743b 100644 --- a/lib.c +++ b/lib.c @@ -4335,7 +4335,7 @@ val juxtv(val funlist) static val do_and(val fun1_list, val args) { fun1_list = nullify(fun1_list); - val ret = nil; + val ret = t; for (; fun1_list; fun1_list = cdr(fun1_list)) if (nilp((ret = apply(car(fun1_list), args, nil)))) -- cgit v1.2.3