From 784b5e283b15eb146670a9b3a2017dea0553ecc7 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Thu, 25 Oct 2012 14:49:08 +0200 Subject: [PATCH] Do not assert that the integer returned by UNIX-ISATTY is a BIT --- src/code/fd-stream.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4