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 (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))))
-      (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)))