12 lines
566 B
Diff
12 lines
566 B
Diff
--- tests/streams.tst.orig 2021-06-28 14:32:42.000000000 -0600
|
|
+++ tests/streams.tst 2021-07-16 16:59:50.530422810 -0600
|
|
@@ -1290,7 +1290,7 @@ T
|
|
(write-line "foo" s) "foo"
|
|
(let ((*reopen-open-file* nil)) ; stdout can be a file, it will be detected!
|
|
(with-open-file (copy s :direction :output) (streamp copy)))
|
|
-#.(if (member (ext:operating-system-type) '("AIX" "Haiku" "HP-UX" "Minix" "Windows") :test #'equal) 'ERROR 'T)
|
|
+#.(if (member (ext:operating-system-type) '("AIX" "Haiku" "HP-UX" "Linux" "Minix" "Windows") :test #'equal) 'ERROR 'T)
|
|
|
|
#+clisp
|
|
(progn
|