Changeset 14588

Timestamp:

11/24/13 21:00:55 (9 years ago)

Author:

ehuelsmann

Message:

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

Pascal Bourguingon.

File:

• trunk/abcl/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/Primitives.java

@@ -2044 +2044 @@
         @Override
         public LispObject execute(LispObject args, Environment env)
-
         {
             final LispThread thread = LispThread.currentThread();
@@ -2050 +2049 @@
             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;