From 6cc7af8556ad45a858b725004a3bd088d0ea9f88 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= <andremegafone@gmail.com>
Date: Sat, 22 Oct 2022 11:22:38 +0300
Subject: [PATCH] libraries/prompter/prompter: Refactor all-ready-p.

---
 libraries/prompter/prompter.lisp | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/libraries/prompter/prompter.lisp b/libraries/prompter/prompter.lisp
index 4ff442a5dfdd..0678f2145b16 100644
--- a/libraries/prompter/prompter.lisp
+++ b/libraries/prompter/prompter.lisp
@@ -454,13 +454,9 @@ This is unblocked when the PROMPTER is `destroy'ed."
 (defun all-ready-p (prompter)
   "Return non-nil when all PROMPTER sources are ready."
   (sera:nlet check ((next-source (next-ready-p prompter)))
-    (cond
-      ((eq t next-source)
-       t)
-      ((null next-source)
-       nil)
-      (t
-       (check (next-ready-p prompter))))))
+    (if (typep next-source 'boolean)
+        next-source
+        (check (next-ready-p prompter)))))
 
 (export-always 'make)
 (define-function make