Changeset 8483


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

%INIT-MISC of bitvector: set value even if 0.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-array.lisp

    r8162 r8483  
    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
Note: See TracChangeset for help on using the changeset viewer.