projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.5.45:
[sbcl.git]
/
contrib
/
sb-simple-streams
/
internal.lisp
diff --git
a/contrib/sb-simple-streams/internal.lisp
b/contrib/sb-simple-streams/internal.lisp
index
1df77e9
..
154abdc
100644
(file)
--- a/
contrib/sb-simple-streams/internal.lisp
+++ b/
contrib/sb-simple-streams/internal.lisp
@@
-28,8
+28,8
@@
(declare (type simple-stream-buffer buffer)
(type (integer 0 #.most-positive-fixnum) index))
(if (vectorp buffer)
(declare (type simple-stream-buffer buffer)
(type (integer 0 #.most-positive-fixnum) index))
(if (vectorp buffer)
- (sb-sys:sap-ref-8 (sb-sys:vector-sap buffer) index))
- (sb-sys:sap-ref-8 buffer index))
+ (sb-sys:sap-ref-8 (sb-sys:vector-sap buffer) index)
+ (sb-sys:sap-ref-8 buffer index)))
(defun (setf bref) (octet buffer index)
(declare (type (unsigned-byte 8) octet)
(defun (setf bref) (octet buffer index)
(declare (type (unsigned-byte 8) octet)