libraries/prompter/prompter: Refactor all-ready-p.

atlas-engineer · Oct 31, 2022 · 020a8fe · 020a8fe
1 parent 44a8b67
commit 020a8fe
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/libraries/prompter/prompter.lisp b/libraries/prompter/prompter.lisp
@@ -455,13 +455,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