- 02/01/12 08:24:17 (3 years ago)
- 1 edited
r12516 r13838 43 43 (sequence::seq-dispatch sequence 44 44 (sort-list sequence predicate key) 45 (quick-sort sequence 0 (length sequence) predicate key) 45 ;;; Jorge Tavares: 46 ;;; As a quick fix, I send in attach a patch that uses in stable-sort merge 47 ;;; sort for all sequences. This is done by coercing the sequence to list, 48 ;;; calling merge sort and coercing it back to the original sequence type. 49 ;;; However, as a long term improvement, the best solution would be to 50 ;;; implement a merge sort for non-list sequences. 51 (coerce (sort-list (coerce sequence 'list) 52 predicate 53 key) 54 (type-of sequence)) 46 55 (apply #'sequence:stable-sort sequence predicate args))) 47 56
Note: See TracChangeset for help on using the changeset viewer.