Changeset 12833


Ignore:
Timestamp:
07/29/10 19:10:44 (12 years ago)
Author:
astalla
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/java-collections.lisp

    r12831 r12833  
    3838     &rest args &key initial-element initial-contents)
    3939  (declare (ignorable initial-element initial-contents))
    40   (apply #'make-jsequence-like s #'jlist-add args))
     40  (apply #'make-jsequence-like s length #'jlist-add args))
    4141
    4242(defun make-jsequence-like
    43     (s add-fn &key (initial-element nil iep) (initial-contents nil icp))
     43    (s length add-fn &key (initial-element nil iep) (initial-contents nil icp))
    4444  (let ((seq (jnew (jclass-of s))))
    4545    (cond
     
    127127     &rest args &key initial-element initial-contents)
    128128  (declare (ignorable initial-element initial-contents))
    129   (apply #'make-jsequence-like s #'jset-add args))
     129  (apply #'make-jsequence-like s length #'jset-add args))
    130130
    131131(defmethod sequence:make-simple-sequence-iterator
Note: See TracChangeset for help on using the changeset viewer.