Do not assert that the integer returned by UNIX-ISATTY is a BIT

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index d6c9b4c..c25e34f 100644 (file)
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -2026,8 +2026,8 @@
     (:external-format
      (fd-stream-external-format fd-stream))
     (:interactive-p
-     (= 1 (the (member 0 1)
-            (sb!unix:unix-isatty (fd-stream-fd fd-stream)))))
+     (plusp (the (integer 0)
+              (sb!unix:unix-isatty (fd-stream-fd fd-stream)))))
     (:line-length
      80)
     (:charpos