gistfile1.el

(defun get-input-from-client (client)
  (let* ((stream (usocket:socket-stream (socket client)))
	 (collected-bytes (loop with b
                              do (setf b (read-byte stream))
			     until (= b (char-code #\Newline))
			     unless (not (standard-char-p (code-char b)))
			     collect (code-char b))))
    (coerce collected-bytes 'string)))