Commit 97bb6580 authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Fix "COND clause should at least have a test form" bug reported by

  Pascal Bourguingon.
parent 79fe2cb4
......@@ -2043,12 +2043,14 @@ public final class Primitives {
@Override
public LispObject execute(LispObject args, Environment env)
{
final LispThread thread = LispThread.currentThread();
LispObject result = NIL;
while (args != NIL) {
LispObject clause = args.car();
if (! (clause instanceof Cons))
return error(new ProgramError("COND clause is not a non-empty list: "
+ clause.princToString()));
result = eval(clause.car(), env, thread);
thread._values = null;
if (result != NIL) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment