Changeset 13119

Timestamp:

01/02/11 20:27:23 (13 years ago)

Author:

ehuelsmann

Message:

Fix ANSI-TEST regressions from r13096:

Arrays with an element-type of NIL can't store anything, not even NIL,
because the type of NIL is NULL.

File:

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

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

@@ -184 +184 @@
           {
             v = new NilVector(size);
-            defaultInitialElement = NIL;
+            defaultInitialElement = null;
           }
         else
@@ -220 +220 @@
         else
           {
-            v.fill(defaultInitialElement);
+            if (defaultInitialElement != null)
+              v.fill(defaultInitialElement);
           }
         if (fillPointer != NIL)