projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Disable some sb-concurrency tests on win32.
[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
6f956e9
..
2067797
100644
(file)
--- a/
contrib/sb-simple-streams/internal.lisp
+++ b/
contrib/sb-simple-streams/internal.lisp
@@
-354,7
+354,11
@@
;; eagain into
;; sb-unix
11)
;; eagain into
;; sb-unix
11)
- (= errno sb-unix:ewouldblock)))
+ (= errno
+ #-win32
+ sb-unix:ewouldblock
+ #+win32
+ sb-unix:eintr)))
(sb-sys:wait-until-fd-usable fd :input nil)
(go again))
(t (return (- -10 errno)))))
(sb-sys:wait-until-fd-usable fd :input nil)
(go again))
(t (return (- -10 errno)))))
@@
-564,9
+568,12
@@
(loop
(multiple-value-bind (fd errno)
(if name
(loop
(multiple-value-bind (fd errno)
(if name
+ #+win32
+ (sb-win32:unixlike-open name mask mode)
+ #-win32
(sb-unix:unix-open name mask mode)
(values nil sb-unix:enoent))
(sb-unix:unix-open name mask mode)
(values nil sb-unix:enoent))
- (cond ((sb-int:fixnump fd)
+ (cond ((integerp fd)
(when (eql if-exists :append)
(sb-unix:unix-lseek fd 0 sb-unix:l_xtnd))
(return (values fd name original delete-original)))
(when (eql if-exists :append)
(sb-unix:unix-lseek fd 0 sb-unix:l_xtnd))
(return (values fd name original delete-original)))