[Openmcl-cvs-notifications] r13366 - /trunk/source/level-1/l1-streams.lisp

[gb at clozure.com]

Author: gb
Date: Wed Jan  6 18:57:53 2010
New Revision: 13366

Log:
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.

Modified:
    trunk/source/level-1/l1-streams.lisp

Modified: trunk/source/level-1/l1-streams.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-streams.lisp (original)
+++ trunk/source/level-1/l1-streams.lisp Wed Jan  6 18:57:53 2010
@@ -2471,7 +2471,7 @@
     (let* ((b (funcall rbf ioblock)))
       (if (eq b :eof)
 	(return (- i start)))
-      (setf (uvref vector i) b)
+      (setf (aref vector i) b)
       (incf i)
       (decf need)
       (let* ((idx (io-buffer-idx in))