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

[Ville Voutilainen]

Author: vvoutilainen
Date: Sun Nov 29 14:48:30 2009
New Revision: 12286

Log:
LispObject.car() should use instanceof to check for nil,
as cdr() does.


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

Modified: trunk/abcl/src/org/armedbear/lisp/LispObject.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispObject.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispObject.java	Sun Nov 29 14:48:30 2009
@@ -130,7 +130,7 @@
   {
     if (this instanceof Cons) {
       return ((Cons)this).car;
-    } else if (this == NIL) {
+    } else if (this instanceof Nil) {
       return NIL;
     }
     return type_error(this, Symbol.LIST);