projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.63: Don't zeroize dynamic-extent simple-unboxed-arrays on x86 and x86-64
[sbcl.git]
/
contrib
/
sb-simple-streams
/
impl.lisp
diff --git
a/contrib/sb-simple-streams/impl.lisp
b/contrib/sb-simple-streams/impl.lisp
index
1c7582e
..
c6b696c
100644
(file)
--- a/
contrib/sb-simple-streams/impl.lisp
+++ b/
contrib/sb-simple-streams/impl.lisp
@@
-273,7
+273,7
@@
eof-error-p
stream t)))
((or (eq char stream)
eof-error-p
stream t)))
((or (eq char stream)
- (not (sb-impl::whitespacep char)))
+ (not (sb-impl::whitespace[2]p char)))
(unless (eq char stream)
(funcall-stm-handler j-unread-char encap t))
(if (eq char stream) eof-value char))))
(unless (eq char stream)
(funcall-stm-handler j-unread-char encap t))
(if (eq char stream) eof-value char))))
@@
-805,7
+805,7
@@
((eq peek-type t)
(do ((char (sb-gray:stream-read-char stream)
(sb-gray:stream-read-char stream)))
((eq peek-type t)
(do ((char (sb-gray:stream-read-char stream)
(sb-gray:stream-read-char stream)))
- ((or (eq char :eof) (not (sb-impl::whitespacep char)))
+ ((or (eq char :eof) (not (sb-impl::whitespace[2]p char)))
(cond ((eq char :eof)
(sb-impl::eof-or-lose stream eof-error-p eof-value))
(t
(cond ((eq char :eof)
(sb-impl::eof-or-lose stream eof-error-p eof-value))
(t