Changeset 13366


Ignore:
Timestamp:
Jan 6, 2010, 6:57:53 PM (9 years ago)
Author:
gb
Message:

In %IOBLOCK-BINARY-IN-IVECT, use (SETF AREF), not (SETF UVREF).
Fixes ticket:645.

Todo: consider open-coding (SETF UVREF) when vector type is declared.

File:
1 edited

Legend:

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

    r13124 r13366  
    24742474      (if (eq b :eof)
    24752475        (return (- i start)))
    2476       (setf (uvref vector i) b)
     2476      (setf (aref vector i) b)
    24772477      (incf i)
    24782478      (decf need)
Note: See TracChangeset for help on using the changeset viewer.