Changeset 9926


Ignore:
Timestamp:
Jul 7, 2008, 8:37:32 PM (11 years ago)
Author:
gz
Message:

Propagate r8482, r8483 from trunk

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-array.lisp

    r9578 r9926  
    164164                                  uvector)))
    165165            (#.x8664::subtag-bit-vector
    166              (if (eql 0 val)
    167                uvector
    168166               (let* ((v0 (case val
    169167                            (1 -1)
     168                            (0 0)
    170169                            (t (report-bad-arg val 'bit))))
    171170                      (l0 (ash (the fixnum (+ len 63)) -6)))
    172171                 (declare (type (unsigned-byte 8) v0)
    173172                          (type index l0))
    174                  (%%init-ivector64  l0 v0 uvector))))
     173                 (%%init-ivector64  l0 v0 uvector)))
    175174            (t (report-bad-arg uvector
    176175                               '(or simple-bit-vector
  • branches/working-0711/ccl/lib/sequences.lisp

    r9868 r9926  
    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.