code/util.lisp (195 bytes)
1 (in-package #:clapt) 2 3 (defun until (stream match) 4 (let ((line (read-line stream nil nil))) 5 (when line 6 (when (not (search match line :test #'string=)) 7 (until stream match)))))
git clone https://github.com/equwal/clapt