From 614563884d2b19e514af233089e392127c4f4027 Mon Sep 17 00:00:00 2001 From: Paulo Cesar Pereira de Andrade Date: Sun, 16 Mar 2008 20:51:25 -0300 Subject: Compile warning fixes. Add parenthesis around a test where after macro expansion it looked like boolexpr==boolres==boolres. "Ansifiy" a function without arguments. --- lisp/core.c | 4 ++-- lisp/lisp.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/core.c b/lisp/core.c index 9077dc5..89f5d5c 100644 --- a/lisp/core.c +++ b/lisp/core.c @@ -3242,7 +3242,7 @@ Lisp_Member(LispBuiltin *builtin) } else { for (; CONSP(list); list = CDR(list)) - if (FCOMPARE(lambda, item, CAR(list), code) == expect) + if ((FCOMPARE(lambda, item, CAR(list), code)) == expect) return (list); } } @@ -3255,7 +3255,7 @@ Lisp_Member(LispBuiltin *builtin) else { for (; CONSP(list); list = CDR(list)) { compare = APPLY1(key, CAR(list)); - if (FCOMPARE(lambda, item, compare, code) == expect) + if ((FCOMPARE(lambda, item, compare, code)) == expect) return (list); } } diff --git a/lisp/lisp.c b/lisp/lisp.c index 720c7df..4b393c1 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -5454,7 +5454,7 @@ LispBegin(void) } void -LispEnd() +LispEnd(void) { /* XXX needs to free all used memory, not just close file descriptors */ } -- cgit v1.2.3