fix: unix-simple-poll returns T not integer, use if poll-result

src/components/input.lisp

@@ -78,7 +78,7 @@
       (let ((sap (sb-sys:vector-sap buf)))
         (if timeout-ms
             (let ((poll-result (sb-unix:unix-simple-poll fd :input timeout-ms)))
-              (if (and poll-result (plusp poll-result))
+              (if poll-result
                   (let ((n (sb-unix:unix-read fd sap 1)))
                     (if (= n 1) (aref buf 0) (values nil :eof)))
                   (values nil nil)))