Changeset 3774

Timestamp:

09/14/03 17:04:25 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/make_array.java (modified) (3 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: make_array.java,v 1.2 2003-09-14 11:45:45 piso Exp $
+ * $Id: make_array.java,v 1.3 2003-09-14 17:04:25 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -100 +100 @@
                 v.fill(initialElement);
             } else if (initialContents != NIL) {
-                final int type = initialContents.getType();
-                if ((type & TYPE_LIST) != 0) {
+                if (initialContents.listp()) {
                     LispObject list = initialContents;
                     for (int i = 0; i < size; i++) {
@@ -107 +106 @@
                         list = list.cdr();
                     }
-                } else if ((type & TYPE_VECTOR) != 0) {
+                } else if (initialContents.vectorp()) {
                     for (int i = 0; i < size; i++)
                         v.set(i, initialContents.elt(i));