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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan 17 10:24:40 2009
New Revision: 11561

Log:
Don't check the value of initialContent to see whether it was provided; it may be NIL.

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

Modified: trunk/abcl/src/org/armedbear/lisp/adjust_array.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/adjust_array.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/adjust_array.java	Sat Jan 17 10:24:40 2009
@@ -58,7 +58,7 @@
         LispObject fillPointer = args[7];
         LispObject displacedTo = args[8];
         LispObject displacedIndexOffset = args[9];
-        if (initialElementProvided != NIL && initialContents != NIL) {
+        if (initialElementProvided != NIL && initialContentsProvided != NIL) {
             return error(new LispError("ADJUST-ARRAY: cannot specify both initial element and initial contents."));
         }
         if (elementType != array.getElementType() &&