Changeset 8482


Ignore:
Timestamp:
Feb 14, 2008, 8:59:12 AM (12 years ago)
Author:
gb
Message:

Use %INIT-MISC for ivector fill.

File:
1 edited

Legend:

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

    r6555 r8482  
    291291        ((or (atom current) (= index end)) sequence)
    292292     (rplaca (the cons current) item))
    293    (do ((index start (1+ index)))
    294        ((= index end) sequence)
    295      (aset sequence index item))))
     293   (if (and (typep sequence 'ivector)
     294            (eql start 0)
     295            (eql end (uvsize sequence)))
     296     (%init-misc item sequence)
     297     (do ((index start (1+ index)))
     298         ((= index end) sequence)
     299       (aset sequence index item)))))
    296300
    297301;;; Replace:
Note: See TracChangeset for help on using the changeset viewer.