From cb00528cc3c9d6ddeba987ef15818c53109b7835 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Wed, 10 Aug 2011 20:05:06 +0200 Subject: [PATCH] sb-simple-streams: In test lp491087, merge the pathname Needed for Windows. Thanks to Anton Kovalenko. --- contrib/sb-simple-streams/simple-stream-tests.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/contrib/sb-simple-streams/simple-stream-tests.lisp b/contrib/sb-simple-streams/simple-stream-tests.lisp index 2371fc8..f0d5a73 100644 --- 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)))) - (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))) -- 1.7.10.4