Changeset 15443


Ignore:
Timestamp:
Aug 17, 2012, 10:22:32 PM (7 years ago)
Author:
gb
Message:

Fencepost (er, sort of) in (SETF SPARSE-VECTOR-REF).
Fixes ticket:1007.

File:
1 edited

Legend:

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

    r15343 r15443  
    963963          (unless v
    964964            (unless (eql new default)
    965               (when (< major tablen)
     965              (when (>= major tablen)
    966966                (let* ((newtab (make-array (the fixnum (1+ major)))))
    967967                  (%copy-gvector-to-gvector table 0 newtab 0 tablen)
Note: See TracChangeset for help on using the changeset viewer.