Changeset 12833

Timestamp:

07/29/10 19:10:44 (13 years ago)

Author:

astalla

Message:

Small fix (a parameter wasn't being passed to make-jsequence-like)

File:

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

trunk/abcl/src/org/armedbear/lisp/java-collections.lisp

@@ -38 +38 @@
      &rest args &key initial-element initial-contents)
   (declare (ignorable initial-element initial-contents))
-  (apply #'make-jsequence-like s #'jlist-add args))
+  (apply #'make-jsequence-like s length #'jlist-add args))
 
 (defun make-jsequence-like
-    (s add-fn &key (initial-element nil iep) (initial-contents nil icp))
+    (s length add-fn &key (initial-element nil iep) (initial-contents nil icp))
   (let ((seq (jnew (jclass-of s))))
     (cond
@@ -127 +127 @@
      &rest args &key initial-element initial-contents)
   (declare (ignorable initial-element initial-contents))
-  (apply #'make-jsequence-like s #'jset-add args))
+  (apply #'make-jsequence-like s length #'jset-add args))
 
 (defmethod sequence:make-simple-sequence-iterator