[armedbear-cvs] r14078 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Aug 13 04:34:07 2012
New Revision: 14078

Log:
Re #236: Solve the EVAL part of "Bad error message for malformed forms".

Modified:
   trunk/abcl/src/org/armedbear/lisp/Lisp.java

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	Mon Aug 13 01:29:26 2012	(r14077)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Mon Aug 13 04:34:07 2012	(r14078)
@@ -520,7 +520,7 @@
           }
         else
           {
-            if (first.car() == Symbol.LAMBDA)
+            if (first instanceof Cons && first.car() == Symbol.LAMBDA)
               {
                 Closure closure = new Closure(first, env);
                 return evalCall(closure, ((Cons)obj).cdr, env, thread);