clavier VS prompt-for

(defun validate-all (validators object) "Run all validators in turn. Return two values: the status (boolean), and a list of messages. Allow a keyword validator: :allow-blank. Accepts a blank value. If not blank, validate." ;; I wanted this to be part of clavier, but well. ;; https://github.com/mmontone/clavier/pull/10 (let ((messages nil) (valid t)) (loop for validator in validators if (and (eql :allow-blank validator) (str:blankp object)) return t else do (unless (symbolp validator) (multiple-value-bind (status message) (clavier:validate validator object :error-p nil) (unless status (setf valid nil)) (when message (push message messages))))) (values valid (reverse (uiop:ensure-list messages)))))

There's also clavier: https://github.com/mmontone/clavier (but didn't try it)

I'm looking for something like Genera's old `prompt-and-read`. It doesn't have to be as full-featured as that, which can do nearly anything you could want. The only two I could find, duologue and prompt-for have some dependencies that I'd rather do without.