Changeset 6555


Ignore:
Timestamp:
May 16, 2007, 7:11:40 AM (15 years ago)
Author:
gb
Message:

Eric Marsden's fixes to MISMATCH

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/sequences.lisp

    r5679 r6555  
    18911891  (unless vectorp1
    18921892    (setq seq1 (nthcdr start1 seq1))
    1893     (when from-end (setq seq1 (reverse seq1))))
     1893    (if from-end
     1894      (do* ((s1 ())
     1895            (i start1 (1+ i)))
     1896           ((= i end1) (setq seq1 s1))
     1897        (push (pop seq1) s1))))
    18941898  (unless vectorp2
    18951899    (setq seq2 (nthcdr start2 seq2))
    1896     (when from-end (setq seq2 (reverse seq2))))
     1900    (if from-end
     1901      (do* ((s2 ())
     1902            (i start2 (1+ i)))
     1903           ((= i end2) (setq seq2 s2))
     1904        (push (pop seq2) s2))))
    18971905  (when test-not (setq test test-not))
    18981906  (if from-end
Note: See TracChangeset for help on using the changeset viewer.