From: David Lichteblau <david@lichteblau.com>
Date: Thu, 25 Oct 2012 12:49:08 +0000 (+0200)
Subject: Do not assert that the integer returned by UNIX-ISATTY is a BIT
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=784b5e283b15eb146670a9b3a2017dea0553ecc7;p=sbcl.git

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