projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
killing lutexes, adding timeouts
[sbcl.git]
/
contrib
/
sb-simple-streams
/
simple-stream-tests.lisp
diff --git
a/contrib/sb-simple-streams/simple-stream-tests.lisp
b/contrib/sb-simple-streams/simple-stream-tests.lisp
index
2371fc8
..
f0d5a73
100644
(file)
--- a/
contrib/sb-simple-streams/simple-stream-tests.lisp
+++ b/
contrib/sb-simple-streams/simple-stream-tests.lisp
@@
-941,7
+941,9
@@
Nothing to see here, move along.")
(sb-simple-streams::read-vector b stream
:endian-swap :network-order)
(aref b 0))))
(sb-simple-streams::read-vector b stream
:endian-swap :network-order)
(aref b 0))))
- (with-open-file (stream "lp491087.txt" :class 'file-simple-stream)
+ (with-open-file (stream
+ (merge-pathnames #P"lp491087.txt" *test-path*)
+ :class 'file-simple-stream)
(let* ((start (file-position stream))
(integer (read-big-int stream))
(end (file-position stream)))
(let* ((start (file-position stream))
(integer (read-big-int stream))
(end (file-position stream)))