Changeset 15446


Ignore:
Timestamp:
Aug 22, 2012, 11:56:29 PM (7 years ago)
Author:
gb
Message:

When (SETF SPARSE-VECTOR-REF) has to extend the table, ensure that
new elements are NIL. Fixes ticket:1007 again ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/sysutils.lisp

    r15443 r15446  
    964964            (unless (eql new default)
    965965              (when (>= major tablen)
    966                 (let* ((newtab (make-array (the fixnum (1+ major)))))
     966                (let* ((newtab (make-array (the fixnum (1+ major)) :initial-element nil)))
    967967                  (%copy-gvector-to-gvector table 0 newtab 0 tablen)
    968968                  (setf (sparse-vector-table sv) (setq table newtab))))
Note: See TracChangeset for help on using the changeset viewer.