From: David Lichteblau Date: Wed, 10 Aug 2011 18:05:06 +0000 (+0200) Subject: sb-simple-streams: In test lp491087, merge the pathname X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=cb00528cc3c9d6ddeba987ef15818c53109b7835;p=sbcl.git sb-simple-streams: In test lp491087, merge the pathname Needed for Windows. Thanks to Anton Kovalenko. --- 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)))